IDENTIFICATION 

Product node: DBC-12--ZR1A-D 

Product Name: DIAL-MS Assembler Progr 

Description 

Date Created: July 1, 1970 

Maintainer: Software Services 



LAP6-DIAL is an editor, filing system and assembler for use 
with the PDP-12 computer. The editor and filing portions are 
derived from the basic LINC program LAPG^ by Mary Allen Wilkes 
of Washington University. The assembly portion is derived 
from^several programs used for the PDP-8 computer including 

The Digital Equipment Corporation wishes to express to the 
author, Mary Allen Wilkes (Clark), and the Computer Research 
Laboratory of Washington University, St. Louis, Missouri, its 
appreciation for the development set forth in LAP6 as well as 
xts thanks for permission to use parts of the LAP6 program. 



Re; ""^J'H^^w ^^^"^"dbook. Computer Research Laboratory Tech 
Rep. No. 2, Washington University, St. Louis, May 1, 196?! 

2pAL-D Assembler Programmer's Reference Manual DEC-D8-ASAA-D. 



1 . 0 PROGRAM OVE RVIEW 



The DIAL Assembler is a bilingual assembler which can as- 
semble program which have been edited by the DIAL editor or 
entered by PIP. 



Additional features to the assembler are: 

1. Ability to save and load parts of the symbol table 

2. Conditional assembly of various lines 

3. Listing between line numbers 

4. A "quick list" entry point which removes comments 
and line numbers and replaces tabs by blanks 

5. Listing on disk or tape 

6. Chaining between source files. 



This assembler is based on PAL~D which, in turn, was based 
on MACRO-8. Most of the routines in the DIAL Assembler will be 
found and described in the PAL-D or MACRO-8 system description. 

2.0 ENVIRONMENT 

The Assembler leaves its binary output in the Working Area 
on tape 1 (blocks 37jef"427) , and the header block in 447. The 
Assembler itself (including necessary scratch blocks) resides 
in blocks 324-345 of tape 0. 



2.1 LOADER MAP 

0000-0117 Page 0: Common literals and pointers 

0200-0211 Bank Check Routine; Symbol Search Routine 

0A00-0511 Symbol Table Getter Routine 

0600-0111 Routine to get a symbol from Symbol Table (or add on)^ 

Ring buffering routines 

1000-1111 General Recursive Expression Evaluator 

12J30-1377 Recursive Address Evaluator 

14jJJJ-1577 Central Processing Loop, Main Start of Assembler 

after Initialization 

1600-1111 Text Processor, Current Line Tester, plus Minor 

Support Routines 

2J?jJJ2f-2177 An Input Character Scanner Routine, the output 

buffer routine and tab routine 

2200-2311 Number Conversions, Type Checks 

2A00-2511 Symbol Sort for Output, Teletype Routine 

2600-2111 Symbol Output and Value Routine, Octal Print 

Routine, Field Change Routine, and Work Area 

3000-3111 Output List Routine, 8K Pseudo Op Initialization 

(destroyed and never used) Work Area 

3200-3311 Error Message Processor, Type Evaluator, System 

Symbol Table Swapper, Fairly Low Level Character 
Getter, and Routine to Skip if Not Pass 2 or Not 
in List Mode 

3A00-3511 Input Character Converter to Internal Form, Plus 

Page Checkers, Other Little Routines 

3600-3111 Internal to External Character Converter, 

Symbol Table Type Getters and Setters 

Low Level Character Getter, Ccmment Processor, 
List and No List Processors 

A000-A111 General Tape I/O Call Routines, Initialization 

for Tape Routines, Other Short Routines 

A200-A311 More Tape I/O Routines, Pseudo Op Processor, 

and Loader Core Map 

4400-4777 Input Buffer and Swapped In and Out Work Area 

for SAVSYM and LODSYM 

5000-5377 Output Buffer, plus Initialization for Entire 

Assembler after it is first loaded in 
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54)2fJ3f~5777 


Pseudo-Op Processor 


6j2fJ2fj2f~6377 


Line Printer Checker and Basic Line Printer 
Routine. Rina hn-F-Fta-r 


6400-6777 


Listape Buffer 


' r* f* f* § 1 i 1 


ux/uj— jyib routines 




User defined symbols 




System Mode Symbols (L-mode or P-^mode) 


17400-17577 


Pseudo Ops and Special Character Table 



3.0 THE PSEUDO OP PROCESSOR 

After the desired pseudo op is found in the table by "EXPR'^ 
it then JMPs to an ISZ chain. The ISZ chain is a group of se- 
quential ISZs of location "GPL". After falling through the ISZs, 
OPL contains the desired pseudo op number; the routine then JMSs 
to it with the desired operation number in the AC. 

4.0 SYMBOL TABLE ORGANIZATION 

A symbol table entry is composed of four words. The first, 
three words are the name and the last is the value. If the 
symbol is a pseudo-op, then the last word contains a pointer to 
the routine which will process the pseudo op and the rest of the 
statement. 



The name is composed of six characters. These characters 
are usually the 26 alphabetic letters plus 10 numbers plus a 
null character if less than six letters long, permitting 45 
octal possible characters for the left or the right half of 
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a word. If six bit notation were used, 23 possible positions 
on the character would be wasted; therefore, six bit is not used. 
The first character of a name must be a letter, thus leaving 
only 32 octal combinations for the first character. If the 
left characters of a word are multiplied by 45, there are two 
free bits in the first word of a name (32*45 < 2000 octal) • 
These two left bits are used as follows: 

Special Character 
01z Undefined 
10: Defined 
11: Pseudo operation 

5.0 SUBROUTINES 
1. Initialization 

NAME: SETORG 



FUNCTION : 



Called at the beginning of each 
pass to initialize counters, 
pointers, and tables. Sets ori 
gin to SEGMNT 2. 



INPUT : 



Clear AC. 



OUTPUT: 



Clear AC. 



MAJOR REGISTERS CHANGED: 



AADR, APAGE, EVAL, ABANK 



NAME: 



RESET 



FUNCTION : 



Called when a new page is to be 
started to initialize pointers. 



INPUT : 



Clear AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



APAGE. 
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2 . Input 



NAME: 



GETIN 



FUNCTION: 



MAJOR REGISTERS CHANGED: 



Gets an 8-bit character from GETCHR. 
Saves it in ITEM. Also scans off 
comments if in QUICK LIST mode. 

ITEM 



3. Input Conversion 



NAME: 



BIT6 



FUNCTION: 



INPUT : 



Translates the 8-bit ASCII character 
in ITEM to its 6-bit internal code. 

Clear AC 



OUTPUT: 



MAJOR REGISTERS CHANGED: 



6~bit internal code in 



None 



AC 



4 . Output 



NAME: 



PUNONE 



FUNCTION: 



INPUT: 



OUTPUT: 



Outputs the contents of EVAL (the 
generated binary) . 

1. PASS 1 - no operation 

2. Save word in correct core loca- 
tion. If correct block not in core, 
it calls NOTBCl to load it in. 

Clear AC when EVAL contains assembled 
binary. 

Clear AC. 



MAJOR REGISTERS CHANGED: 



CUNADD, 



Output (contO 



NAME: 



OPS 



FUNCTION: 



This is the octal print routine. It 
converts the binary word in the AC to 
4 octal characters (8-bit ASCII code) 
and calls TYPO to output them.. 



INPUT: 



Value to be output in AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



None, 



NAME: 



EMPTY 



FUNCTION : 



Outputs the contents of the symbolic 
buffer via TYPO during optional PASS 2< 
It then calls TYCAR to output a 
carriage return/line feed. 



INPUT: 



Clear AC. 



OUTPUT: 



Clear AC. 



MAJOR REGISTERS CHANGED: 



CHARAC - the buffer counter/pointer. 



NAME: 



TYCAR 



FUNCTION: 



Outputs a carriage return and a line 
feed in 8-bit ASCII code via two calls 
to TYPO. 



INPUT : 



Clear AC. 
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Output (cont.) 



^^'^^^T: Clear AC 



MAJOR REGISTERS CHANGED: None, 



NAME: 
FUNCTION: 



INPUT: 



OUTPUT; 



MAJOR REGISTERS CHANGED: 



UNTRAN 

Converts the 6~bit internal code 
character in the AC to 8-bit ASCII 
and then calls TYPO to output it. 

Internal code character in AC. 
Clear AC. 

TYCAR - symbol character counter. 



NAME : 

FUNCTION: ^sed to decode a word of a symbol 

table entry by dividing by 45 ^ and 
then calling UNTRAN twice to output 
the two characters that are now in 
6-bit internal code. 

Word to be decoded in AC. 
O^^PU'T^ Clear AC. 



MAJOR REGISTERS CHANGED: 



LWC, HIC, MP I 



Output (cont. ) 



NAME: 



OSYM 



FUNCTION: 



Outputs the symbol in TEM1A-TEM1A4-2 . 
It initializes the symbol character 
counter, TYCAR, and then calls OX 
once for each word of the symbol. 



INPUT ! 



Clear AC, 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



TYCAR 



NAME: 



OSANDV 



FUNCTION: 



Outputs a symbol via OSYM and its 
value via OPS. It calls SKIP2 to 
output spaces for format and TYCAR 
for a terminating carriage return/line 
feed. 



INPUT: 



Clear AC. 



OUTPUT : 



Clear AC, 



MAJOR REGISTERS CHANGED: 



None. 



NAME: SKIP2 

FUNCTION: Outputs spaces (8~bit ASCII) for 

formatting purposes via TYPO. 

INPUT: 2's complement of number of spaces 

in AC. 
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Output (cont.) 
OUTPUT: 

MAJOR REGISTERS CHANGED: 



Clear AC, 
None. 



NAME: 

FUNCTION: 



INPUT: 
OUTPUT: 

MAJOR REGISTERS CHANGED: 



ALPHA 

Called at the end of PASS 2 to out- 
put an alphantimeric ordered symbol 
table print of all the defined 
symbols and their values. it uses 
the following "lower level" output 
routines to accomplish this: LT2 , 
TYPE, TYCAR and OSANDV. 
It also uses 

MOVE - the triple precision 
moving routine, 

TRIPLE - the triple precision 
comparison routine, 
and GETYPE - to determine the type 
of the symbol currently 
being ordered. 



Clear AC. 



Clear AC. 



SADR, auto-index 16q, TEM1-TEM3, 
TEMlA-TEMlA+2 , and VAL. 



NAME: 



ONEREG 



FUNCTION : 



This routine is entered with the AC 
containing the value that is to.be 
loaded into the location now pointed 
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Output (cont.) 

at by AADR (the current address 
counter) when the assembled program 
is to be run. This value is output 
via PUNONE. 

INPUT: Value to be output in AC. 

OUTPUT: Clear AC. 

MAJOR REGISTERS CHANGED: EVAL 

AADR - incremented by 1, 
TYPINST+page number - this contains 
the highest instruction address +1 
and was changed if the value just 
output was the highest instruction 
so far on this page. 



NAME: 



ERROR 



FUNCTION ; 



Called to output error message (8-bit 
ASCII) via TYPO corresponding to 
error number in the AC. The error 
address is either relative to a 
symbolic tag or absolute depending 
on whether or not a tag has been 
encountered since the last origin 
setting. 



INPUT: 



Error ntamber in AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



None, 



IQ 



Pseudo- Instruction Processors 



NAME: 
FUNCTION: 



INPUT: 



OUTPUT : 



MAJOR REGISTERS CHANGED: 



PAGEC 

Handles the PAGE pseudo-op. Calls 
EXPR to see if a page number 
follows PAGE. If so, the origin is 
set to the beginning of that page. 
If no number is specified, the origin 
is set to the beginning of the next 
page. PUNORG is called to punch the 
new origin. 

Clear AC. 

Clear AC. 

AADR, EVAL 



NAME: 



PERIOD 



FUNCTION: 



Handles the pseudo instruction. 

Combines the value of the current 
address counter, AADR, with the value 
already accumulated according to the 
last operator received, if in LMODE, 
AADR is ANDed with 1777. 



INPUT: 
OUTPUT: 



Clear AC. 



Clear AC. 



MAJOR REGISTERS CHANGED: 



CON (indirectly) . 
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Pseudo-Instruction Processors (cont.) 



NAME: 



H 



FUNCTION: 



Handles the "1" pseudo instruction. 
The indirect indicator register is 
set to 400 g and the scanning for 
the rest of the expression resumes 
at A+1. 



INPUT: 



Clear AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



H"f3 



NAME: 



ORGIC 



FUNCTION: 



Handles the pseudo instruction. 

EXPR is called to get the address of 
the new origin which follows the *. 
PUNORG is called to punch the new 
origin. 



INPUT : 



Clear AC. 



OUTPUT : 



Clear AC, 



MAJOR REGISTERS CHANGED: 



AADR 



NAME: 



STRING 



FUNCTION: 



This handles the TEXT pseudo- 
instruction. It uses calls to GETIN 
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Pseudo-Instruction Processors (cont.) 



to input the beginning delimiter, 
the string of characters, and the 
terminating delimiter in 6-bit DIAL 
code. It then uses calls to ONEREG 
to output two string characters per 
register in 6-bit DIAL code. 

^NPUT: Clear AC. 

OUTPVT: Clear AC. 

MAJOR REGISTERS CHANGED: VAL, EVAL, ITEM. 



NAME: 
FUNCTION: 



INPUT: 



OUTPUT : 



MAJOR REGISTERS CHANGED: 



FIELDM 

Handles the FIELD pseudo-instruction. 
EXPR is called to pick up the bank 
designation which follows FIELD. This 
memory bank designator is output (pass 
2 only) via TYP02 in a format 
acceptable to the binary loader. 

Clear AC. 

Clear AC. 

None. 



NAME: DECIM 

FUNCTION: Handles the DECIMAL pseudo-ins tructioji 

Calls the subroutine DECIMS, which by 
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Pseudo-Instruction Processors (cont.) 



setting a switch in the MTIO sub- 
routine, effects all subsequent 
numbers to be considered in the 
decimal radix. 



INPUT: 



Clear AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



MTSW - the switch register. 



name: 



OCT 



FUNCTION: 



Handles the OCTAL pseudo-instruction. 
Calls the subroutine OCTS, which by 
setting a switch in the MTIO sxib- 
routine, effects all subsequent 
numbers to be considered in the octal 
radix. 



INPUT: 



Clear AC. 



OUTPUT: 



Clear AC. 



MAJOR registers CHANGED: 



MTSW - the switch register. 



6. Symbol Table Routines 



NAME: 



SEARCH 



FUNCTION: 



Searches the symbol table for the 
symbol found in TEMl, TEM2, and TEM3, 



INPUT: 



Clear AC. 
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Symbol Table Routines (cont.) 



OUTPUT': 



MAJOR REGISTERS CHANGED: 



Clear AC. 

SADR, Autoindex 16^, INST, VAL, 
VADR, ANY, TYPE 



NAME: 

FUNCTION : 



INPUT: 
OUTPUT : 



GETYPE 

Extracts the type from the left hand 
2 bits of the 1st word and the left 
hand bit of the second word of the 
current symbol and places it in TYPE, 

Clear AC. 

Clear AC. 



MAJOR REGISTERS CHANGED: 



TYPE. 



NAME: 
FUNCTION: 

INPUT: 
OUTPUT: 



TYPADD 

Change or add the type of the symbol 
pointed at by SADR. 

Clear AC. 

Clear AC. 



MAJOR REGISTERS CHANGED: 



TYPE, 1st 2 words Of symbol table 
entry . 
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Symbol Table Routines (cont,) 



NAME: 



CURREN 



FUNCTION: 



Handles the special character . 
It defines the symbol preceding the 
comma as equal to the current 
address counter. 



INPUT ; 



Clear AC. 



OUTPUT: 



Clear AC. 



MAJOR REGISTERS CHANGED: 



TEMlA-TEMlA+2 , VADR, VALIA 



NAME: 



ENTS 



FUNCTION: 



Enter a symbol in the symbol table 
with type equal to the parameter 
following the call. The symbol to 
be entered is in TEM1-TEM3 and the 
value in VAL. 



INPUT : 



Clear AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



SEND, SADR, VADR, TYPE. 



NAME: 



ERR7 



FUNCTION: 



This routine is called by CURREN to 
determine whether the symbol to be 
defined has already been defined and, 
if so, whether the new definition 
agrees with the old. 
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Symbol Table Routines (cont.) 



INPUT: 



OUTPUT: 



MAJOR REGISTERS CHANGED: 



Clear AC. 
Clear AC. 
None. 



NAME: 



SAVE 



FUNCTION: 



INPUT: 



Called by SEARCH to save the 
pointers (SADR, TYPE, VADR) of the 
previous symbol, in case the current 
symbol is a definition character 
( , or =) or a macro escape 
character. 

Clear AC. 



OUTPUT : 



MAJOR REGISTERS CHANGED: 



Clear AC. 



REPUN, RESTOR-1, VADRl 



NAME: 
FUNCTION: 



•INPUT : 



RESTOR 

Restores the registers saved by SAVE. 
CURREN, the processing routine, 

is one place where RESTOR is called 
to allow definition of the symbol 
preceding the 



II II 



Clear AC. 



OUTPUT: 



Clear AC, 
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Symbol Table Routines (cont.) 



MAJOR REGISTERS CHANGED: 



SADR, TYPE, VADR 



NAME: 



LDT 



FUNCTION : 



Used in the assembling of a symbol. 
If the character is alphanumeric, 
exit is made with it in the AC after 
having incremented IN and called IDX 
for the next character. If non- 
alphanumeric, CHARX is cleared to 
effect immediate exit from LDT in 
subsequent calls. 



INPUT: 



Clear AC, 



OUTPUT: 



Alphanumeric character of 0 in AC« 



MAJOR REGISTERS CHANGED: 



NUPAGE (for temporary storage) , 
IN — alphanumeric character 
counter , CHARX . 



NAME: 



AlW 



FUNCTION: 



Used in the assembling of a symbol. 
It makes two calls to LDT and adds 
the output of the 2nd to 45 g times 
the 1st. This gains type bits in the 
1st two words of the symbol table 
entry . 



INPUT: 



Clear AC. 



18 



Symbol Table Routines (cont.) 



OUTPUT: 



Word of symbol in AC. 



MAJOR REGISTERS CHANGED: 



NUPAGE (for temporary storage) , VAL- 



NAME: 



AAS 



FUNCTION: 



Assembles a 3 word symbol by calling 
AlW three times. By calls to LDT, 
it causes all letter/digits beyond 6 
to be ignored. 



INPUT: 



Clear AC. 



OUTPUT: 



Clear AC. 



MAJOR REGISTERS CHANGED: 



TEMl, TEM2, TEM3. 



NAME: 



ANYY 



FUNCTION: 



Control comes here from the SEARCH 
routine. If the type of the symbol 
found is defined or undefined, ANY is 
indexed to indicate something valid 
was assembled for this line. 



INPUT : 



Clear AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



ANY 
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Symbol Table Routines (cont.) 



NAME: 



GETASY 



FUNCTION: 



Calls AAS to get a symbol and then 
SEARCH to see if it is already in 
the symbol table. If it is not in 
the table, it is entered as undefined 
by calling ENTS. 



INPUT: 



Non-zero AC when called by GETSYM; 
otherwise clear AC. 



OUTPUT: 



Non-zero AC if symbol undefined and 
pass is 1; otherwise clear AC. 



MAJOR REGISTERS CHANGED: 



IN, VAL, TRUBL. 



NAME: 



TRIPLE 



FUNCTION: 



Triple precision comparison routine 
used by ALPHA to order its output. 
It exits with the link on if the 
symbol in WORK-WORK+2 is greater 
than the symbol in TEMl - TEMl+2. 



INPUT: 



Clear AC. 



OUTPUT : 



Clear AC; link on or off. 



MAJOR REGISTERS CHANGED: 



MOVE (for temporary storage) 
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Symbol Table Routines (cont.) 



NAME: 



GETADR 



FUNCTION: 



Called by EXPR when a defined or 
undefined symbol is terminated by 
a space. Its job is to get the 
address portion of this expression. 
Because it calls EXPR to accomplish 
this, it must save its own exit 
point for possible recursion. It 
will call CONC to generate a link 
when the address is an out~of-page 
reference. 



INPUT: 



OUTPUT: 



Clear AC. 
Clear AC. 



MAJOR REGISTERS CHANGED: 



ADR, NUPAGE (for temporary storage) 



7. Numeric Routines 



NAME: 



DECIMS 



FUNCTION: 



Sets a switch in MTIO to effect deci- 
mal radix for all subsequent numbers. 



INPUT : 



Clear AC. 



OUTPUT: 



Clear AC. 



MAJOR REGISTERS CHANGED: 



MTSW (the switch address) 
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Numeric Routines (cont.) 



NAME: 



OCTS 



FUNCTION: 



Sets a switch in MTIO to effect octal 
radix for all subsequent numbers. 



INPUT: 



Clear AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



MTSW (the switch address). 



NAME: 



MTIO 



FUNCTION: 



Uses calls to MTRL (which shifts LWC 
left 1 place) and calls to MTAD 
(which adds the contents of TIC to 
the pseudo accumulator, LWC) to combine 
the number in MTDG, according to the 
currently declared radix, with the 
previously accumulated value, LWC. 



INPUT: 



Clear AC, 



OUTPUT: 



Clear AC. 



MAJOR REGISTERS CHANGED: 



TIC. 



NAME: 



QPCV 



FUNCTION: 



Numeric input and conversion routine. 
It calls IDX for input and MTIO for 
conversion to the currently declared 
radix. A non-numeric character will 
stop processing. 
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Numeric Routines (cont. ) 
INPUT: 
OUTPUT: 

MAJOR REGISTERS CHANGED: 



Clear AC. 
AC non-zero. 

ANY, HIC, LWC, RTDIG, SIGN, DPN, 
MTDG. 



8. Miscellaneous Routines 



NAME: 



RADD 



FUNCTION: 



Add the value in the AC to the 
accumulated value, CON, and store 
the result in CON. 



INPUT: 



Value to be added to CON in AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



CON. 



NAME: 



RSUB 



FUNCTION: 



Subtract the value in the AC from 
the accumulated value, CON, and 
store the result in CON. 



INPUT : 



Value to be subtracted from CON in AC. 



OUTPUT : 



Clear AC. 



MAJOR REGISTERS CHANGED: 



CON. 
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Miscellaneous Routines (cont.) 



NAME: 



RAND 



FUNCTION : 



AND the value in the AC with the 
accvnnulated value, CON, and store 
the result in CON. 



INPUT: 



Value to be ANDed with CON in AC. 



OUTPUT: 



Clear AC, 



MAJOR REGISTERS CHANGED: 



CON. 



NAME: 



RIOR 



FUNCTION: 



OR the value in the AC with the 
accumulated value, CON, and store 
the result in CON. 



INPUT: 



Value to be OR'd with CON in AC. 



OUTPUT: 



Clear AC. 



MAJOR REGISTERS CHANGED: CON, VAL (for temporary storage). 



NAME : UNDERR 
FUNCTION: 



Channels the error printout number, 
which is in the AC, to ERROR if the 
current pass is not 1. It suppresses 
error printouts during pass 1. 
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Miscellaneous Routines (cont.) 



^^^^"^^ Error printout number in AC. 

OUTPUT: Pass 1 - error printout number in 

AC. Not pass 1 - clear AC. 

MAJOR REGISTERS CHANGED: None. 



NAME: 



PUSH2 



FUNCTION: 



Enters the contents of the AC into 
the push down list. 



INPUT: 



Entry for push down list in AC, 



OUTPUT : 



Clear AC, 



MAJOR REGISTERS CHANGED: POINT, PACK (for temporary storage) 



NAME: 

FUNCTION: 



POPUPl 

Retrieves the last entry from push 
down list. 



INPUT: 



Clear AC. 



OUTPUT : 



Entry in AC. 



MAJOR REGISTERS CHANGED: 



POINT. 
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MOVE I/O ROUTINES 
TO 7000 OF FIELD 0 



READ IN PSEUDO-OPS 
AND LINE PRINTER 
ROUTINE 



SET UP TTY TO CHECK 
FOR LINE PRINTER 

j CA LL INST ROUTINE | 
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C SWITCH »4gOTD pass \ \ 

f 



C PASS » P ^ 



SET "SWITCH" FOR 
PASS 2 





strm OF 

DEFINED SYMBOLS 
TO 1408 


\ 






\ 



SET LINE #- TO I 



C MAIN SE > ■ 



BOP UP LINE i«k 
AND CHECK 
USTING UMITS 



c 



OOCAL 



C PASS 2 ) 



SWITCH = RETURN 
TO 

DIAL 

C PASS IP ) 
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MAIN SE 



WRITE OUT CORE 
8t0CK.REA0 IN 
DESIRED BLOCK 



EVALUATED 
NUMBER GOES TO 
0RIGINI377a 
BINARY CORE BASE 

C{4400-IC-0RIGtN 
/4001)» 7777 



TTY:»-«-UNE«*fr. 
ORIGIN E>MLUATED 
NUMBER 




^ EXPR I IS THE 
MACRO-EXPRESSION 
EVALUATOR 
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SAVE CON INST, 
SGN,Hf3 ANDEXPR 
IN PUSH DOWN UST 



INITJALIZE CON, 
INST.SGN AND 
H+3 FOR THIS 
ENTRY 



THIS IS DONE IN 
-CASE ON THE NTH 
ENTRY TO EXPR THE 
NTH - I ENTRY HAS 
NOT BEEN 
COMPLETED 



SPACE 



/ CALL I OX TO 
GET NEXT 
CHARACTER jN 
V INTERNAL CODI 




CALL 6ETSYM 
WITH DISPATCH 
TABLE 



UNOERNED OR 

DEFINED 

SYMBOL 



DISPATCH TABLE 



NUMBERS, MACROS. 
AND PSEUOaOPS 
• CAUSE DIRECT 
TRANS.FROM GET 



ALL OTHER 
. TYPES 



COMBINE VALUE 
FOR SYMBOL WITH 
PREVIOUSLY 
ACCUMULATED 
VALUE CON, 
ACCORDING TO 
THE LAST OPER. 



COMBINE ROUTINE 
POINTER. S6N, 
'INITIALLY POINTS 
TO RIOR. 




GET 
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VALUE OF LAST 
SYMBOL INPUT IS 
COMBINED WITH 
PREV. ACCUMMUL. 
VALUE ACCORD. TO 
LAST OPERATOR 



SPACE 




CALL IDX TO 
GET THE NEXT 
CHARACTER 



VALUE OF LAST 
NUM^R INPUT IS 
COMB. WITH PREV. 
ACCUMUL. VALUE 
ACCORD. TO LAST 
OPERATOR 



GETSYM TRANSFER 
.DIRECTLY TO HERE 
AFTER PROCESS- 



ING A NUMB 



CALL GETSYM' 



DISPATCH TABLE 




DISPATCH TABLE 



SET POINTER OF 
COMBINE ROUTINE, 
SGN,FO« ADDITION 



SET POINTER OF 
COMBINE ROUTINE 
SGN FDR SUBT. 



SET POINTER OF 
COMBINE ROUTINE. 
SGNfFOR 
INCLUSIVE OR 



1 



SET POINTER OF 
COMBINE ROUTINE, 
S6N,roRAND 



ALL OTHER 
TYPES 
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J 

1 



CALL GETIN 
TO INPUT THE 
NEXT CHAR. IN 
8-BiT ASCII 



STORE THIS VALUE 
IN CON, THE 
ACCUMULATED 
VALUE 



GET 

i 



CALL GETADR 
TO GET THE AD- 
DRESS PORTION OF 
THIS EXPRESSION 



OR 9-BIT ADDRESS 
(12 BIT IF MICRO INST) 
WITH PREV. ACC. 
VALUE CON. 



1 



CALL CURREN TO 
DEFINE THE SYMBOL 
PRECEDING THE COMMA 
AS«TOCURR.A0D.CNTR. 



CURREN DOES 
NOT RETURN CONTROL 
TO HERE, BUT 
TO MAINSE 



GETADR CALLS 
EXPR-THIS IS 
ONE OF THE CAUSES 
OF RECURSION 



INCREMENT ANY TO 
INDICATE VALID INFO 
HAS BEEN ASSEMBLED 



RESTORE EXPR.FROM 
PUSH DOWN LIST 



PUT CON IN EVAL, 
H 3 IN IND AND 
TNST IN MICRO 
FOR LATER REFERENCE 



RESTORE THE NTHH + 3. 
SGN.(NST,AND 
CON VALUES FROM 
THE PUSH DOWN LIST 



EXIT TO THE 
ADDRESS IN EXPR 
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ERONE 

i 



r CALL 
/ ERROR TO 
/ OUTPUT 
( ILLEGAL 
\ EQUAL SIGN 

\ 



TYPE ER- 
ROR 



MAINSE 



EQU 

0 



SAVE THE POINT- 
ER TO THE VAL- 
UE WORD OF THE 
SYMBOL BEING 
DEFINED. 



^ LINC MODE 



SYMBOL 


BIT 0 OF 


WORDS 2 a 3 " 


LEFT TWO 


BITS OF 


EVAL. 




\ 


r 



I EVAL* EVAL a 1777 



<CALL IDX TO \ 
GET THE NEXT ) 
CHARACTER / 



^CALL EXPR\ 
^TO GET THE^ 
EXPRESSION 
Ta WHICH THE 
^SYMBOL WILL/ 
BE SET 
EQUAL 



INSERT THE VAL- 
UE OF THE EX- 
PRESSION TOTHE 
RIGHT OF THE « 
IN THE SAVED 
VALUE WORD 



CALL 
TYPADD TO 
MAKE TVPE 
OF SYMBOL 
DEFINED 



MAINSE 
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PICK UP THE CHAR 
FROM BACKUP 
REGISTER CHARX2 
a SETUP FOR A 
SYMBOL TABLE 
SEARCH 



GETLET 



TRANSFER TO , 
,OPCV TO INPUTS 
ODNVERTIN CURR 
RADIX UNTIL NON. 
NUMERIC IS ' 
"TNCOUNTEREO 




BIdN EXPR)COMB 
K'SVALU£A0c5Ra 
TOLASTOPERATION 
^^lI^.f^'EVIOUSLY 
ACCUMUL VALUE 8 

TDCONT SCANNING 



^CALL SEARCH To\ 
SEARCH SYMBOL ^ 




CALL ERROR TO 
OUTPUT ILLEGAL 
CHARACTER (IC) 
ERROR MESSAGE 
CALL lOX 70 GET 
NEXT CHARACTER 
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.NO 





'yes 


TRANSFER TO THC 
AODRCSSOFTHE 
PSEUDO-mST 
PROCESSOR WHICH 
IS THE VALUE OF 
THE SYMBOL 











THE VALUE OF THE 
SYMBOL iS MADE 
THE TYPE FOR 
DISPATCHING 
PURPOSES 



pt=65'b( litres: 
a 

SPACE 



ESCAPE CHAR. 



0R6IC PERIOD ESCAPE 





GSTART 



TRANS, TO THE 
ADDRESS OF THE 
PSEUDO-INSTR 
PROCESSOR 
WHICH IS THE 
VALUE OF THE 
SYMBOL 



OCTAL DECIMAL 



TEXT 



PAGE 



FIELD 



OCT 



DECIM STRING PAGEC 



f 

EXMEM 
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35 



(DECOUT) 



SAVE THE CHAR 



1 

CALL CHECK TO 
CHECK BUFFER 
STATUS 



YES 



c 



IS 

BUFFER 
FULL 



NO 



REGET THE CHARACTER 



STORE IN BUFFER BY 
INP POINTER 



CALL BUMP (INP) TO 
BUMP UP IMP 



ADD ONE TO THE 
BUFFER COUNTER 



CALL CHECK 



GGGET 







BOP DOWN BUFFER 
COUNT 






GET CHARACTER 
FROM BUFFER 






[ SAVE FOR 


A SECOND 1 



CALL BUMP (OUTP) 
TO BOP UP POINTER 



REGET THE CHARACTER 




C 



RETURN 
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c 



INCREMENT CALLING 
ARGUMENT 




NO 



SET ARGUMENT EQUAL 
TO START OF BUFFER 



•c 



RETURN 



c 



3 



C 



XCER 







TYPE OUT 
"CH ERROR" 






1 KILL ASSEMBLY | 



C CHAIN J 

T 



PAGE OUT 
BINARY AREA 



PAGE IN CHAIN 
ROUTINE 



LOOK FOR DOUBLE 
QUOTE 




NO 



C 



XDONE1 



XCER 



< 



3 
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SAVE BLOCK NUMBER 
AND UNIT NOW 




TYPE "CHAINING 
PROG NAME" 



RESET LIN 
COUNTER 


E NUMBER 


1 




REREAD IN BINARY 
WORK AREA 



XDONEl 




C 



RETURN 



3 




YES 



< 



XCER 



CALL EXPR1 TO 
EVALUATE REST OF 
LINE 




NO 



SET THIS UP AS THE 
NEW UNIT 



SKIP PAST REST OF 
LINE 



USE UNIT ALREADY 
SELECTED 



c 



38 



0225 DIAL ASSEMBLER VERSION 2 

0006 :x •:. / 

0007 / 

80i2 /COPYRIGHT 1969, DIGITAL EQUIPHENT CORPORATION* MAYNARO MA SS ACHUSSET S, 01754 

0011 / 

2212 /POP-12 DISK DIAL ASSEMBLER 

0013 / 

0014 / 

SJif / THIS ASSEMBLER REQUIRES THE STANDARD DISK DIAL HARDWARE 

0016 / 

0017 / 
0020 / 

2021 / LATEST ASSEMBLER <5/l4/70>, INCLUDES CHAINING. 

0022 / 

0023 / 

0024 / 

0025 EJECT 



\ 





■^-3 2. 




CO 




S3 <■/</ 


% 


c / 














t 








c 




> 




) 




7 




-¥ 


c c 


G 




-h 


C'7 


i — ? 


■% 1/ 

^ f 


:> 


70 


/ 






If 




ft 


<< 








/ 


7 3 



1 



0026 

0027 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0040 

0041 

00 42 
0043 
0044 
0045 
0046 
0047 
0050 
0051 

0052 

0053 
0054 

0055 
0056 
0057 
0060 
0061 
0062 
0063 
0064 
0065 
0066 

0067 

0070 
0071 
0072 

0073 
0074 

0075 
00 76 
0077 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0110 
0111 



/ 
/ 
/ 
/ 

/0000-0177 

/020 0*0377 

/0 400-0577 

/0600-0777 

/ 

/ 

/ 

/ 

/1000-1177 
/1200-1377 
/1400-1577 
/1600-1777 
/2 00 0-21 77 
/2200-2377 
/2 400-2577 
/2600-2777 

AREA. 
/3000-3177 
EA, 

/3200-3377 
/ 

ode:, 

/3400-3577 

/ " 

/3 60 0-37 77 

/ 

/ 

/ 

/T HE FOUOWING 

/ 

/ 

/4000-4177 

STurr, 

/420 0-4377 
RE MAP, 
/4400»4777 
/5 00 0-5377 
/ 

APPEO IN, 
/ 

/5400-5777 
1. 

/6000-6777 

/700 0-^377 

/7400.7577 

/7600-7777 

/ 

/ 

/ 



4K LOADER MAP 



PAGE 01 COMMON LITERALS AND POINTERS, 
BANK CHECK ROUTINE! SYMBOL SEARCH ROUTINE 
SYMBOL TABLE GETTER ROUTINE 

ROUTINE TO GET A SYMBOL FROM SYMBOL TABLE< OR ADO ON). 
SDEC04 IS ACTIVE, S0EC08 IS NOT USED. 

SDEC04 USES 6777-6000 FOR USER SYMBOLS, . 
5400-5777 IS USED FOR USER SYMBOLS AND FOR A SWAPPING BUFFER/ 
IF MORE THEN 300 SYMBOLS , EXTRA SYMBOLS GO OUT ON UNIT 1. 
GENERAL RECURSIVE EXPRESION EVALUATOR. 

/^^^?«lL%ROCEsi?NrjoOPr«;.N START OF ASSEHBLER AFTER IN .T IL .|AT ,0N. 
/Tr«T PRnrESSOR.CURRENT LINE TESTER. PLUS MINOR SUPPORT ROUTINES. 
In I Jpu?°CHrR«TERSMNNER ROUTINE. THE PRINTER BUF ROUTINE. AND TAB ROUTINE. 
NUMBER CONVERSIONS. TYPE CHECKS, 

™L 'oS?JuT°ANS'rAL;E TdSt iSe! 'ScT AL PRINT ROUTINE. FIELD CHANGE ROUTINE. AND WORK 

OUTPUT LIST ROUTINE, 8K PSEUDO OP IN I T I AL I 2A T I ON ( DES TROYED AND NEVER UESED). WORK AR 

ruimp Mr«5SACr PROCESSOR. TYPE EVALUATOR, SYSTEM SYMBOL TABLE SWAPPER, 

^A^R^ Lo5 £eVEL CHAfACUrciriEJ. AND ROUTINE TO SKIP IF NOT PASS2 OR NOT IN LIST M 

INPUT CHARACTER CONVERTOR TO INTERNAL FORM, PLUS PAGE CHECKERS, OTHER 

iiTERNAL^TJ^ EXTERNAL CHARACTER CONVERTOR. SYMBOL TABLE TYPE GETTERS AND SETTERS, 
lSw LEVEL CHARACTER GETTER, COMMENT PROCESSOR, LIST AND NOLIST PROCESSORS. 



LOCATIONS ARE IN 



ASSEMTHO! 



GENERAL TAPE 10 CALL ROUTINES. INITILUZTION FOR TAPE ROUTINES, PLUS EXTRA LITTLE 
MORE TAPE I/O ROUTINES, PSEUDO OP PROCESSOR( FOR PAGED IN PSEUOO OPS), AND LOADER CO 

TWDiiT QilrrrB*S WAPPFD IN AND OUT WORK AREA FOR SAVSYM AND LOOSYM, 

nu^pJr BUFFER PLUS INITIALIZATION FOR ENTIRE ASSEMBLER AFTER IT S FIRST LOADED IN 
SnJ ^HiI aLsS cONTMNS THE SWAPPED IN PSEUDO OP PROCESSOR. NOTE. WHEN THINGS ARE SH 

TMr PRrvtOUS CONTENTS OF THE LOCATIONS ARE FIRST SWAPPED OUT TO PRESERVE THEM. 
IsER s5!!"ul iTl ill SYMbSlS: else IT S BUFFER AREA FOR SWAPPING SYMBOLS FROM TAP 

USER SYMBOLS (FIRST 200 OF THEM ANYWAY), 

MODE SYMBOLS<EITHER PMODE OR LMODE TABLE. DEPENDING ON MODE,). 
PSEUOO OP TABLE PLUS SPECIAL CHARACTER DEFINITION TABLE. 
sSpPO^EDLY UNUSED. BUT WHEN PSEUDO OP TABLE IS LOADED. IT S LENGTH 
OF 400 WORDS OVERLAYS IT. 



END 



0 F 



MAP 



EJECT 



0112 
0113 
0X14 
0115 
0116 
0117 
0120 
0121 
0122 
0123 

0124 

0125 
8126 
0127 
0130 
0131 

0132 
0133 
0134 
0135 
0136 
0137 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0150 
0151 
0152 



/ 
/ 
/ 

/THIS 
/ 
/ 
/ 
/ 

/0 60 0-07 77 
/ 

GIVEN) . 
/5 00 0-53 77 
/5400a5777 
/6000»6177 
/620 0-6377 
/6400~6777 
/7000 = "7377 

SK) , 
/7400-7777 
/ 
/ 
/ 
/ 
/ 

/10000 
/I 7000 
/1 74 00 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



8K LOADER MAP 
MAP SHOWS ONLY CHANGES TO 4K HAP. 



SDtCOS IS NOW ACTIVE AND SDEC04 IS PASSIVE. S0EC08 USES THE UPPER 4K OF CORE 

FOR THE SYMBOL TABLE, THUS IT STORES NO USER SYMBOLS ON UNITKEXCEPT IF A SAVSYM IS 

PSEUDO OP TABLE IS NO LINGER PAGED IN HERE. SEE 7200-7377. 
OVERLAPPED READ ROUTINES FOR READING WHILE CALCULATING. 
LINE PRINTER CHECKER AND BASIC LINE PRINTER ROUTINE. 
OVERLAPPED TAPE OUTPUT ROUTINES PLUS COMMON READ-WRITE ROUTINES. 
INPUT BUFFER NO .2 

RESIDENT PSEUDO OP PROCESSOR. NOTE THAT IT CAN RESIDE IN TWO SEPERATE PAGES{FOR 4 OR 
INPUT BUFFER NO.l FOR TAPE, 



FIELD 



-16777 
173 77 
-175 77 



REFERENCES 



USER DEFINED SYMBOLS. 

SYSTEM MODE SYMBOLS( LMODE OR PMODE), 

PSEUDO OPS AND SPECIAL CHARACTER TABLE. 



END OF 8K MAP 



EJECT 



/ THE PSEUOO OP PROCESSOR 

/ 

/ 

/ 

/ THE PSEUOO OP PROCESSOR IS A 400 LOCATION ROUTINE WHICH IS PAGED IN ON THE 4K MODE AND RESIO 

/AFTER THE DES I RED ' PSEUOO OP IS FOUND IN THE TA8LE BY "EXPR" IT THEN JMPS TO AN 1S2 CHAIN 

/THE ISE CHAIN IS A BUNCH OF SEQUENTIAL ISZ S OF LOCATION "0P1«, AFTER FALLING THROUGH THE ISH S OPl CONTAI 

ns 

/ THE DESIRED PSEUDO OP NUMBER, THE ROUTINE THEN PAGES IN THE PSEUOO OP PROCESSORdF 4K, ELSE IT S RESIDENT) 

/ TO^?T^WITH THE DESIRED OPERATION NUMBER IN THE AC. WHEN FINISHED THE PSEUOO OP PROCESSOR RETURNS AND IT S 

/K OUT, IN THE 8K VERSION IT S RESIDENT AND IS NOT SWAPPED IN OR OUT, 

/ 

/ 

/ 

/ 

/ 

EJECT 



0174 
0175 
0176 
0177 
0200 
0201 
02 02 
0203 
0204 
0205 
0206 

0207 
0210 

0211 
0212 
0213 
0214 
0215 
0216 
0217 
02 20 
02 21 
0222 
02 23 
0224 
0225 
0226 
0227 



SYMBOL TABLE ORGANIZATION 



/ 
/ 

/ 
/ 

/A SYMBOL TABLE ENTRY IS COMPOSED OF A WORDS, THE FIRST THREE ARE THE NAME AND THE LAST IS THE VALUE 
/IF THE SYMBOL IS A PSEUOO OP THEN THE LAST WQRO CONTAINS A POINTER To THE ROUTINE WHICH WILL PROCrsS 
/THE PSEUDO OP AND THE REST OF THE STAATEMENT. 

/ 
/ 

/THE NAME IS COMPOSED OF SIX CHARACTERS, 

/THESE CHARACTERS ARE USUALLY THE 26 LETTERS PLUS 10 NUMBERS PlUS A NULL CHARACTER IF LESS THEN 6 LETTERS LO 

NG t 

/THIS GIVES YOU 45 OCTAL POSSIBLE CHARACTERS FOR THE LEFT OR THE RIGHT HALF OF A WORD. 

/^F YOU USE SIXBIT NOTATION, YOU LL WASTE 23 POSSIBLE POSITIONS ON THE CHARACTER. THEREFORE, SIXBIT IS NOT U 

/NON. SINCE THE FIRST CHARACTER OF A NAME MUST 8E A LETTER, THIS LEAVES ONLY 32 OCTAL 
/COMBINATIONS FOR THE FIRST CHARACTER. THUS IF WE MULTIPLY THE LEFT 

/CHARACTERS OF A WORD BY 45» WE WILL HAVE 2 FREE BITS IN THE FIRST WORD OF A NAME./ 
/( 32*45+45<2000 OCTAL), THESE TWO LEFT BITS ARE USED AS FOLLOWS! 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

EJECT 



00 i 
01 : 
101 
11 J 



SPECIAL CHARACTER 

UNDEFINED 

DEFINED 

PSEUDO OPERATION 



0230 
0231 
0232 
0233 



0242 



0245 



02 47 



0260 
02 61 
0262 
02 63 
0264 



0267 
0270 



^23^ f VERSI0N*17 /THIS IS USED IN CHECKING TAPE 1, 

0236 f 



2237 /^^^^^ ^j^^ ASSEMBLE AND CHANGE THE MAJOR SYMBOL LOCATIONS, UP THIS 8Y 1. 



0240 

0241 f 



f 



0^4 UN1TAS::4777 /PLACE TO GET UNIT FROM 



E7s0 



0246 06*300 



07 =3 70 



0250 08=410 

PTHRrE = 7325 /CLA CLL CML I AC RAL 
0252 PTHREE-7325 /GENERATES A IN AC WHEN EXECUTED 

MTun-7^44 /CLA CLL CMA RAL 

0254 MTWO-7344 ^GENERATES A ^2 IN AC WHEN EXECUTED. 

g256 MTHREE = 7346 /CLA CLL ^CMA ^RTL ^ ^^^^ 



2265 ^ERMC«00 /SET TERMC TO 44 IF DOLLAR SIGN IS THE END OF FILE CHAR. 



02 71 / 

0272 / 

0273 EJECT 



0274 






/PDP«12 


ASSEMB 


0275 






PMODE 




0276 






*1 




0277 


0001 


0710 


OECOUT , 


PUT 


0300 


0002 


0000 


ERTOT* 


0 


0301 


0003 


0000 


L.ISTWD* 


0 


0302 


0004 


2353 


CNTLPI f 


CNTRLP 


0303 


0005 


0000 


MI CROB , 


0 


0304 


0006 


7777 


EQRETI , 


7777 


03 05 


00 07 


00 00 


TE MP , 


0 


03 06 






/VARIABLES 


0307 






•10 




0318 


0010 


2400 


BINPTR, 


2000+d: 


0311 


0011 


00 00 


BIN8LK, 


0 


0312 


0012 


0000 


CURLIN, 


0 


0313 


0013 


7740 


M40, 


-40 


0314 


0014 


0000 


TYPEA, 


0 


0315 


0015 


0011 


Pli, 


11 


0316 






/16 AND 


17 ARE 


0317 






/FOR AUTO»INDE) 


0320 






• 20 




0321 


0020 


00 00 


ANY, 


0 


0322 


0021 


0000 


TYPE , 


0 


03 23 


00 22 


0000 


VAOR ♦ 


0 


0324 


0023 


0000 


SADR, 


0 


0325 


0024 


0000 


VAt, 


0 


03 26 


0025 


0000 


VALK , 


0 


0327 


0026 


0000 


SCURR, 


0 


0330 


0027 


0141 


SEND, 


141 


0331 


0030 


0000 


AAOR, 


0 


0332 


0031 


00 00 


APAGE, 


0 


0333 


0032 


0141 


PERMA, 


141 


0334 


0033 


0000 


EVAL, 


0 


03 35 


00 34 


0000 


SGN, 


0 


0336 


00 35 


00 00 


PASS. 


0 


0337 


0036 


0000 




0 


0340 


0037 


0000 


MODE. 


0 


0341 


0040 


0000 


TEMIA, 


0 


0342 


0041 


0000 




0 


0343 


0042 


0000 




0 


0344 


0043 


0000 


CURR, 


0 


0345 


004 4 


00 00 


CHARX, 


0 


03 46 


0045 


0000 


CHARX2 , 


0 


0347 


0046 


0000 


ABANKi 


0 


03 50 


0047 


0000 


POINT, 


0 


0351 


0050 


0000 


IN, 


0 


0352 


0051 


00 00 


ITEM , 


0 


0353 


0052 


0000 


HI C, 


0 


0354 


0053 


0000 


LWC, 


0 


03 55 


00 54 


00 00 


MI CROL . 


0 


0356 


0055 


00 00 


INST, 


0 


0357 


0056 


00 00 


MICRO, 


0 


0360 


0057 


0000 


CHAR AC, 


0 


0361 


0060 


4013 


INITl, 


INIT 


0362 






/POINTERS 


0363 


0061 


2054 


EMPTYI , 


EMPTY 


0364 


0062 


2661 


SOPS , 


OPS 


03 65 


00 63 


36 63 


RESE Tl» 


RE SE TL 


0366 


0064 


3400 


81 T6A, 


BI T6 


0367 


0065 


3355 


PASSEK, 


PASSER 


0370 


0066 


a520 


CURSKA, 


CURSKP 


0371 


0067 


«17 


GETCHR. 


SYSIN 


0372 


0070 


3524 


CHEKER, 


PAGSET 



/WAS THIS AN INSTRUCTION 

/HOLDS TYPE OF CURRENT SYMBOL 

/VALUE OF CURRENT SYMBOL 

/POINTER OF FIRST WORD OF CURRENT SYMBOL 

/VALUE OF CURRENT SYMBOL 

/CURRENT SYMBOL NUMBER 

/POINTER TO FIRST FREE REGISTER AFTER SYMBOL TABLE 

/ACTUAL CURRENT ADDRESS 

/ORIGIN OF CURRENT PAGE - ACTUAL 

/FIRST REGISTER AFTER PERMANENT SYMBOL TABLE 

/HOLDS ADDRESS PORTION DURING CALCULATION 

/7777 IF PASS 2 

/7777 IF EXTENDED MEMORY 

/7777 IF POP-8; 0 IF LlNC 



/PUSH DOWN LIST 

/TELLS WHETHER SYMBOL WAS ACCEPTED 



/- IF SYMBOLIC A MICRO INST. 



03 73 
0374 
0375 

03 76 
0377 

04 00 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0420 
0421 
0422 
0423 
0424 
04 25 
0426 
04 27 
0430 
0431 
04 32 
0433 
0434 
04 35 
0436 
0437 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0450 
0451 
0452 
0453 
0454 
0455 
0456 
0457 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0470 
0471 



0071 

0072 

0073 

00 74 

0075 

0076 

00 77 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 



14 54 
1400 
1547 
0524 
0764 
3201 
10 00 
2510 
1411 
1551 
1046 
2037 
2341 
4307 
0400 
32 42 
0622 



4201 
1503 

4275 
4051 
4101 
3001 
7000 
7735 
7745 



7733 
7711 
00 76 
17 06 
37 77 
2132 
7731 
0240 
7774 



3662 
0000 
0740 

5000 
0300 
1777 
0177 
7600 
0200 
4000 
75 63 
2000 
0212 
0215 
7400 
07 77 
0007 
0077 



SYMLST , 
MAINEX , 
INAS , 
MOVEl, 
SKIP, 
ERR! . 
eXPRl. 
TYCARl > 
MA IN1» 
PAGE1» 
821* 
lOXl , 
PUSHl, 
P0PU1» 
GETSYl, 
GETASl » 
TYPADl , 
SO EC 01 . 
SRITlCr 
SYB, 
SROl, 
RETl, 
MQN. 
PUNONl » 
M1000J 
M43» 
H3 3. 
P400 . 

M4 5, 

M6 7, 

P76, 

LlNENOr 

P3777, 

SCLEAR, 

H4 7, 

P240, 

M4, 

P6000, 
PM60A, 
UOWTHP. 
PC HECK, 

P5000. 

P300 , 

P177?, 

P177, 

P7600, 

P200 » 

P4000. 

M215 , 

P2000J 

P212, 

P215, 

P7400I 

P777, 

P7, 

P7 7p 

IE Ml , 

TEH2 , 

TEM3, 

CON. 

ADR, 

IND, 

ERRCNT 



LSTSYM 

MAIN 

CJMPl 

MOVE 8 

SKIP2 

ERROR 

EXPR 

TYCAR 

MA INSE 

RE SET 

B2 
IDX 

PUSH2 

POPUPl 

GETS YM 

GETASY 

TYPADD 

SDEC08 

SWRC 

SYMBU 

SREAOl 

RETURN 

MONIT 

PUNONE 

-1000 

-43 

-3 3 

400 

.45 

-67 

76 

J8TEST 
37 77 
CLEARR 
-4 7 
240 
-4 

6000 
M60A 
0 

CH ECK 

5000 

30 0 

1777 

177 

7600 

20 0 

4000 

'215 

2000 

212 

215 

7400 

777 

7 

77 

0 

0 

0 

0 



/MAY 8E USED QNUY FOR IMM. TEMP. NEVER USED IF YOU LEAVE ROUTINE, 



/F IRST 
/SECOND 

/THIRD WORD OF CURRENT SYMBOL 
/HOLDS ACCUMULATED VALUE OF WORD 
/HOLD FULL 12 BIT ADDRESS 
/400 IF INDIRECT OTHERWISE 0 



0472 


0170 


00 00 


SW ITCHi 


0 


04 73 


01 71 


00 00 


SNUM, 


0 


0474 


0172 


0000 


EMPTRA , 


0 


0475 


0173 


0000 


SPCUNT, 


0 


0476 


0174 


3102 


SY, 


SYMB UF 


0477 


0175 


0000 


TBCONT » 


0 


05 00 


0176 


2370 


8INTAB, 


2000*07 


0501 


0177 


4321 


SETINU. 


UB ITS 


0502 






/ 




05 03 






/ 




0504 






/ 




Z5B5 






/ 




0506 






/ 




0507 








EJECT 



/LINE CHARACTER SPACE COUNTER^ 



/POINTS TO THE ROUTINE TO TURN ON THE HEADER BLOCK BITS 



0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0530 

05 31 

0532 

0533 

0534 

0535 

0536 

0537 

0540 

0541 

0542 

0543 

05 44 

05 45 

0546 

0547 

0550 

0551 

0552 

0553 

0554 

0555 

0556 

0557 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 

0570 

0571 

0572 

05 73 

0574 

05 75 
0576 
0577 
0600 
0601 
0602 

06 03 
0604 
06 05 
0606 



0200 

02 01 

0202 

0203 

0204 

02 05 

0206 

0207 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 
0230 
02 31 
0232 
0233 
0234 
0235 
02 36 
0237 
0240 
0241 
02 42 
0243 
0244 
0245 
02 46 
0247 
0250 
0251 
0252 
02 53 
0254 
0255 
0256 
0257 

0260 
02 61 
02 62 
0263 
0264 



/PDP-12 ASSEMBLER PAGE 1 
»200 

4477 BANKCH, JMS I EXPRl 

1020 TAD ANY 

7640 SZA CLA 

5220 JMP BANKEM 

7040 CMA 

1030 TAD AAOR 

1152 TAD P2000 

0136 AND P6000 

3030 DCA AADR 

4463 BANKHR. JMS I RESETl 

4502 JMS I PAGEl 

10 30 TAD AADR 

3033 OCA EVAL 

4465 JMS I PASSEK 

4466 JMS 1 CURSKA 
5501 JMP I MA INI 
7307 BANKEM, CLA CLL lAC RTL 
0033 AND EVAL 
3036 DCA TLOWD 

1033 TAD EVAL 

7012 RTR 

7010 RAR 

5207 JMP BANKHR -2 



0000 CURREN* 0 



4663 
2260 
3171 
4661 
4662 
1037 
7004 
7200 
1030 
7420 
0144 
6211 
34 22 
6201 
7430 
5253 
1030 
0136 
7112 
1150 
3256 
4511 
0000 
5664 

7777 
3757 

22 75 
1751 
1416 



JMS i RESTOl 



ISZ 
DCA 
JMS I 



COMMAN 

SNUM 

PSTCHK 



JMS I MOVEAA 
MODE 



AAOR 
P1777 



PDP8ER1 



TAD 
RAL 
CLA 
TAD 
SNL 
AND 
6211 
OCA 1 VADR 
6201 
SZL 

JMP PDPBER 
TAD AADR 
AND P6000 
CLL RTR 
TAD P4000 
OCA .+2 
JMS I TYPAOl 



0265 1736 



0266 
0267 
0270 



4665 
3026 



JMP I MAINIA 

/ 

COMMAN, -1 

PSTCHK r STOCHK 
MOVEAA, ERR2 
RESTOl » RESTOR 
MAINIA, MAINSF 
/ 

SAVEl, SAVE 
/ 

SEARCH, 0 

JMS I SAVEl 
OCA SCURR 



/♦4 



/CHECK FOR TOO MANY COMMAS, 
/YEP, A BADDY 



/PLACE SIGN BIT INTO THE LINK 



/RESET IRREGULARLY. 



0607 


0271 


6211 




6211 


06i0 


0272 


1026 


Mn \iX I 


) 1 A U UK n 


0611 


0273 


4512 




iM<5 J cnrmi 


0612 


0274 


72 40 






0613 


0275 


1023 




T A n ^ A no 

) A U 3 A Un 


0614 


0276 


3016 




DC A 16 


0615 


0277 


1416 




T A 0 I 16 


0616 


0300 


0144 






0617 


0301 


7041 




U 1 A 


0620 


0302 


1161 




T A n Tr Ml 


0621 


0303 


7640 




S2A CLA 


0622 


0304 


5370 




1 M D t kt n 4 
Jfir INUi 


0623 


0305 


1416 




TAD I 16 


0624 


0306 


0131 




M(\U r 0 / / / 


0625 


0307 


7041 




CIA 


0626 


0310 


1162 




TaH TrM9 

1 nw It nt 


0627 


0311 


7640 




SZ A CL A 


0630 


0312 


53 70 




)M D T kl T\A 

Jnr INU* 


0631 


0313 


1416 




T A n t 1 A 
! A U i X 0 


0632 


0314 


01 31 




A W n 77 7 


0633 


0315 


7041 




CI A 


0634 


0316 


1163 






0635 


0317 


7640 




acA UUA 


06 36 


0320 


5370 




IMP TKtm 


0637 


0321 


1367 


TAD TOP 


06 40 


0322i 


7041 




PT A 
A 


0641 


0323 


1023 




1 AU O AUn 


0642 


0324 


7700 




SMA CLA 


0643 


0325 


5334 




IMP DCItn 


06 44 


0326 


1032 




TAn PTRMA 


0645 


0327 


7041 




CI A 


0646 


0330 


1026 




T A fl 1 ID o 
i A U Un n 


0647 


035i 


7510 




SP A 


0650 


03 32 


3055 




nr A t w CT 
uu A i N a i 


0651 


0333 


73 00 




n A n 1 


0652 


03 34 


14 16 


PS UO t 


Tad I 16 


0653 


0335 


3025 




np A U A 1 1^ 
UUA VAL>> 


0654 


0336 


1016 




T A n 1 A 

! A U ID 


0655 


0337 


3022 




nr A u A no 

Ulr A V A Un 


0656 


0340 


7346 




HT MR £E 


0657 


0341 


1016 




TAn 1 A 

> A U i 0 


0660 


0342 


3016 




A 1 A 


0661 


0343 


1416 




TAD I 16 


06 62 


0344 


0150 




AND P4Gina 


0663 


0345 


3007 




UU A t Lnr 


0664 


0346 


1416 




TAO I 16 


0665 


0347 


0150 




ANU r*TBIff0 


06 66 


03 50 


71 10 




R A R CL L 


0667 


0351 


1007 




TAD TtMr 


06 70 


03 52 


1025 




TA D VA LK 


0671 


0353 


3024 




OCA VAL 


06 72 


0354 


1037 




TAD MODE 


0673 


0355 


7700 




SMA CLA 


06 74 


03 56 


4764 




JMS I INDIB 


0675 


0357 


4765 




JMS I GETYE 


06 76 


0360 


2266 




ISH SEARCH 


0677 


0361 


4766 




JMS I INDIC 


0700 


0362 


6201 


TAABA* 


6201 


0701 


0363 


5666 




JMP I SEARCH 


0702 


0364 


1560 


INDIB. 


LNINST 


0703 


0365 


3623 


GETYE» 


GETYPE 


0704 


0366 


2367 


INDIC, 


ANYY 


0705 


0367 


7374 


TOP# 


7374 




/NO HATCH, 



.£- 



tf5 



/- IF INSTRUCTION 



/ ^ 

/ / 




0706 


0370 


2026 IND1» 


IS2 SCURR 


0707 


0371 


1026 


TAO SCURR 


0710 


0372 


7041 


CIA 


0711 


0373 


1027 


TAO SEND 


0712 


0374 


7640 


SHA CLA 


0713 


0375 


5272 


JMP SEARCl 


0714 


0376 


2020 


IS2 ANY 


0715 


0377 


5362 


JMP TAA8A 


0716 






EJECT 



^ jg. — 




07 17 






/PDP-12 ASSEMBLER PA 


07 20 








*4 00 


07 21 


04 00 


0000 


G£ TSYM 


f 0 


0722 


04 01 


1 044 




TAD CHARX 


07 23 


04 02 


74 50 




SNA 


07 2 4 


040 3 


5 216 




JMP SPECAL 


07 25 


04 04 


11 23 




TAD M33 


07 26 




7510 




SPA 


0727 


BO 


56 41 




JMP GETLET 


0730 


0407 


Ic 1 ^ 




TAD M12A 


0731 


0410 


7700 




SMA CLA 


07 32 


0411 


52l6 




JMP SPECAL 


07 33 


0412 






JMS I OPCVOP 


07 3 4 


04 13 


56 3 4 




JMP I 811 


07 35 




7 7 A A 


M12A . 


-12 


07 36 


04 15 




DPCVOPj 


. DPCV 


0737 


04 16 


1045 


SPECAL , 


- TAD CHARX2 


0740 


0417 


31 63 




DCA TEM3 


07 41 


04 20 


31 62 




OCA TEM2 


07 42 


04 21 


31 61 




DCA TEMl 


07 43 


04 22 


46 33 




JMS I SCHl - 


07 44 


0423 


5235 




JMP 811*1 


07 45 


04 24 


10 21 




TAD TYPE 


0746 


04 25 


11 52 




TAD P2000 


0747 


04 26 


76 50 




SNA CLA 


07 50 


04 27 


5424 




..JMP I VAL 


0751 


04 30 






TAD VAL 


07 52 


0431 


JW 1 1 




OCA TYPE 


07 53 


04 32 






JMP GSTART 


07^4 


0433 


0266 


SCHl » 


SEARCH 


0tS5 


0434 


1041 


81 1> 


Bl 


07 56 


04 35 


7325 




PTHREE 


07 57 


04 36 


AS H 




JMS I ERR! 


07 60 


04 37 






JMS r IDXl 


0761 




52 01 




JMP GETSYM+l 


07 62 


04 41 


45 10 


GETLET, 


JMS I GETASl 


07 63 


04 42 


1021 




TAD TYPE 


07 64 




11 52 




TAD P2 000 


07 65 


04 44 


76 50 




SNA CLA 


0766 


f > 


54 24 




JMP I VAL 


0767 


»4 4 6 


1600 


GSTART, 


TAD r GETSYM 


07 70 


0447 


0145 




AND P177 


0771 


10^710 






DCA CURR 


07 72 


04 $1 


1200 




TAD GETSYM 


07 73 


04 52 


01 46 




AND P7 60 0 


07 74 


04 53 


10 43 




TAD CURR 


0775 


04 54 


30 43 




DCA CURR — ■ ' 


07 76 


04 55 


16 00 




TAD I GETSYM 


0777 


0456 


0146 




AND P7600 


1000 


0457 


7440 




SZA 


1001 


04 60 


5264 




JMP GTYPOT 


1002 


04 61 


1043 




TAD CURR 


10 03 


04 62 


32 00 




DCA GETSYM 


1004 


0463 


5246 




JMP GSTART 


10 05 


0464 


7041 


GT YPOT , 


CI A 


1006 


0465 


10 21 




TAD TYPE 


1007 


0466 


76 50 




SNA CLA 


1010 


0467 


5443 




JMP I CURR 


1011 


0470 


1600 




TAD I GETSYM 


1012 


0471 


0146 




AND P7600 


1013 


0472 


1147 




TAD P200 


1014 


0473 


7650 




SNA CLA 


1015 


0474 


5443 




JMP I CURR 



/ 1^ 



/DIGIT 



.J 



/GET SYMBOL 



/PSEUDO OP. 




'•^^.^ 



1032 



1045 



1016 0475 2507 ISi I GETSYl ^^jpi/^'€/~^ 

1017 0476 5Z46 JMP GSTART 

1020 0477 4477 PAGEC. JMS I EXPRl 

1021 0500 1020 TAD ANY 

1022 0501 7640 SZA CL A 

1023 0502 5316 JMP PAGEM 

1024 0503 7040 CMA 

1025 0504 1030 TAD AAOR 

1026 0505 1147 TAD P200 

1027 0506 0146 AND P7600 

1030 0507 3030 OCA AADR 

1031 0510 4502 PAGHERi JMS I PAGEl 



0511 1030 TAD AADR 



1033 0512 3033 OCA EVAL 



0513 44 65 JMS I PASSEK 

0514 4466 JMS I CURSKA 

0515 5501 JMP I MAINI 



10 34 

1035 

1036 0515 5501 J"^' I "Al«i ^„ 

1037 0516 1033 PAGEM. TAD EVAL /MULTIPLY 8Y 200 

1040 0517 7012 RTR 

1041 0520 7012 RTR 

1042 0521 7012 RTR //...x^ 

1043 0522 5306 JMP PAGHER-2 ^ '^'-^"^ 

1044 0523 7777 Ml.-l 



0524 0000 MOVES. 0 "1 I 

1046 0525 1323 TAD Ml 

1047 0526 3016 OCA 16 

1050 0527 7040 CMA 

1051 0530 1724 TAD I MOVES 

1052 0531 3017 OCA 17 

1053 0532 2324 ISZ MOVES 

1054 0533 1724 TAO I MOVES 

1055 0534 2324 ISZ MOVES 

1056 0535 3345 DCA MOVA 

1057 0536 1156 TAO P777 

1060 0537 3007 OCA TEMP 

1061 0540 1007 MOVB, TAO TEMP 

1062 0541 7124 CLL CML RAL 

1063 0542 3007 OCA TEMP 

1064 0543 7430 S2L 

1065 0544 5724 JMP I MOVES 

1066 0545 

1067 0546 

1070 0547 

1071 0550 

1072 0551 

1073 0552 

1074 0553 

iS76 0554 7610 DOLIST. CLA SKP /LIST ENTRY PSEUDO. 

1077 0555 7240 PLIST, CLA CMA /NOLIST PSEUDO. 

1100 0556 3324 OCA MOVES /IN TEMPORARY. 

1101 



0000 


MOVA* 


0 




1416 




TAO I 16 




0007 




AND TEMP 




0131 




AND P3777 


6201 




6201 




3417 




OCA I 17 




5340 




JMP MOVB 




7610 


/ 

D0LIST» 


CLA SKP 




7240 


PLIST, 


CLA CMA 




3324 




OCA 


MOVES 


10 35 




TAD 


PASS 


7650 




SNA 


CLA 


5367 




JMP 


OOPOUT 


1324 




TAO 


MOVES 


3770 




DCA I 


JJSTART 


1324 




TAO 


MOVES 


7040 




CMA 




37 71 




DCA 1 


JJEND 


5503 


00 POUT, 


JMP I 


B21 


1733 


J J ST ART 




JSTART 


17 34 


JJENO* 


' JEND 





0557 1035 TAD PASS /IS THIS PASS2? 



1103 0561 5367 JMP OOPOUT /NO. IGNORE IT. 

n04 0562 1324 TAO MOVES /0 =L IS T, 7777 =N OL IS T 

1105 0563 3770 DCA I JjSTART /FUDGE JBTEST PARAMS, 

1106 0564 

0566 '.77? Set I JJEND /SET UP LINE NUHBER tlHITS. 

1111 0567 5503 OOPOUT, JMP I B21 /CLEAN UP SYSTEM. 

1112 0570 

1113 0571 
1114 



1H5 
1116 
1117 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1140 
1141 
1142 
1143 
1144 
1145 



0572 
0573 



4776 



0574 4331 

0575 5772 



/ 
/ 
/ 
/ 
/ 
/ 
/ 

VRSTR, 



JMS I VRSTRR 
VSAVE 

JMP I VRSTR 



0576 7774 VRSTRR, READ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 

EJECT 



/THIS ROUTINE RESTORE 6400 FROM THE SCRATCH AREA 
/CALL THE READ ROUTINE 
/POINTER TO THE SAVE AREA 
/RETURN TO THE CALLER 



/POINTER TO THE READ ROUTINE 



1222 
1221 



1224 
1225 



li46 /PDP-12 ASSEMBLER PAGE 3 

lir? .6.. .... r''' ''''''' /CONVERT A SVHBOU NUMBER TO AN ADDRESS 

n52 0601 3171 OCA SNUM /SAVE THE NUMBER 

1153 0602 1171 TAD SNUM 

1154 0603 0136 AND P6000 

1155 0604 7640 SZA CLA 

1156 0605 5674 JMP 1 ERSY /TOO MANY SYMS 

1157 0606 1171 TAD SNUM 
1160 0607 7106 CLL RTL 

Hti TAl 11% u£ STAB /STAB IS TOP OF SYMBOL TABLE 

l\tl 0612 3023 DCA IaOR /ADDRESS OF FIRST WORD OF SYMBOL 

1164 0613 7325 PTHREE ^^^^ 

'''' Bl '*'%OUNT ''''''' ;SE?^rHE'^U^BEl OF CHARACTERS IN THE OUTPUT BUFFER 

^^'l Ilk CLA /IF NON-ZERO. SEE IF ITS OK TO PRINT ONE, 

nil ml IVaI !hS ''\hECK /by calling THE CHECK ROUTINE. 

1172 0621 5600 JMP I S0EC08 , ' . . f O^'tJ^P^Sl 

1173 0622 0000 TYPADD. 0 ^^l-^.-^^J^^ ^^^j^J^ ^' «J^^^ 
0623 72 00 CLA ^ V ' \ i' 

0624 1622 TAD I TYPAOO 

0625 3014 OCA TYPEA 
06 26 1014 TAD TYPEA 
0627 3021 DCA TYPE 

1202 
1203 
1204 
1205 

1206 0635 0136 
1207 
1210 
1211 
1212 
1213 
1214 





1174 
1175 
1176 
1177 

1200 «v^. '-^ 

1201 0630 6211 6211 

0631 1423 TAD I SAOR 

0632 0144 AND P1777 

0633 3423 OCA I SADR 

0634 1021 TAD TYPE 1. 

0635 0136 AND P6000 ^ ^ tM^ 

0636 1423 TAD I SAOR 

0637 3423 OCA I SAOR 

0640 2023 IS2 SAOR 

0641 1423 TAD I SAOR 

0642 0131 AND P3 77 7 

0643 3423 DCA I SADR 

1215 0644 1021 TAD TYPE Q 

1216 0645 7006 RTL ^ . 

1217 0646 0150 AND P4000 ■'^■^v^jL - ^ 
1220 0647 1423 TAD I SAOR .. c/^-^^^ ' 

0650 3423 DCA 1 SAOR 



12 22 0651 2023 4iS2 SAOR^ 

1223 

0654 3423 bcA I SADR 



1226 0655 1021 /TAD TYPE ^ Q 

1227 0656 7006 iRTL , , .-O-O' \ 

1230 0657 7004 ;RAL V .^Z- 

1231 0660 0150 (AND P4000 / L^^^-n^^^ ^ 4' U^'' 

1232 0661 1423 TAD 1 SAOR / C/^ / 9, ^ 

0662 3423 : OCA, I SADR ^ f .<^^^^ ^ 

0663 73 44 ' MTWO /0,..4^' ^ ' 

^ OI-JT T An 5 ADR / i. O 



1233 0662 3423 

12 34 0663 73 44 

1235 0664 1023 TAD SADR 

1236 0665 3023 OCA SADR 

1237 0666 1021 TAD TYPE 

1240 0667 0136 AND P6000 

1241 0670 3021 OCA TYPE 

1242 0671 6201 6201 

1243 0672 2222 ISZ TYPADD 

1244 0673 5622 JMP 1 TYPADD 



1245 
12 46 
1247 
12S0 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1260 
1261 
1262 
1263 
12 64 
1265 
1266 
1267 
12 70 
12 71 
12 72 
1273 
1274 
1275 

12 76 
1277 
1300 
1301 
1302 
1303 
1304 
1305 

13 06 
1307 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1320 
13 21 
1322 
1323 
1324 
1325 
13 26 
1327 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1340 
1341 
1342 
1343 



0674 
0675 



1175 
7600 



0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0720 
0721 
0722 
0723 
0724 
0725 



ERSY, 

STAB» 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



STEXD 
7600 



/SET TO POINT TO END OF THE SYMBOL TABLE 



0676 


0000 


GGCET. 


0 




0677 


7240 




CLA CMA 




0700 


1360 




TAD 


COUNT 


0701 


3360 




DCA 


COUNT 


0702 


1705 




TAD 1 


OUTP 


0703 


3140 




DCA 


LOWTMP 


0704 


4326 




JMS 


BUMP 


0705 


6110 


OUTP, 


riRST 




0706 


1140 




TAD 


LOWTMP 


0707 


56 76 




JMP I 


GGCET 



3222 
4541 
1360 
1361 
76 50 
53 12 
1222 
3722 
4326 
6110 
2360 
4541 
5710 



/ 
/ 
/ 
/ 
/ 

PUT, 



INP» 



0 

OCA 
JMS I 
TAO 
TAD 

SNA CL4 
JMP 
TAD 
DCA I 
JMS 
FIRST 
1S2 
JMS I 
JMP I 



TYPAOD 
PC HECK 
COUNT 
PLTST 

PUT* 2 
TYPAOD 
INP 
BUMP 

COUNT 
PC HECK 
PUT 



0726 


0000 BUMP, 


0 






0727 


2726 


ISZ 


I 


BUMP 


0730 


1726 


TAD 


I 


8UHP 


07 31 


1362 


TAD 




PLOVR 


0732 


7650 


SNA 


CLA 


0733 


1361 


TAD 




PLTST 


07 34 


17 26 


TAD 


I 


BUMP 


0735 


3726 


OCA 


I 


BUMP 


07 36 


2326 


ISZ 




BUMP 


0737 


5^26 


JMP 


I 


BUMP 



0740 
0741 



0000 
1360 



/ 
/ 
/ 
/ 
/ 

CHECK. 



BUFFERED TTY AND LPT ROUTINE 

/GETS A CHARACTER FROM THE BUFFER 
/DECREMENT COUNT BY 1 



/GET THE CHARACTER 
/SAVE FOR A SECOND 
/BUMP THE RING POINTER NOH 

/POINTS TO THE NEXT GET FROM SPOT IN THE BUFFER 
/REGET THE CHARACTER 
/AND EXIT 



/SAVE THE CHAR IN ANOTHER TEMP LOC 
/CHECK TO STATUS OF THE DEVICES, 
/GET THE COUNT 

/COMPARE AGAINST THE MAXIMUM NUMBER ALLOWED 

/BUFFER IS FULL. WAIT 
/RECALL THE DESIRED CHARACTER 
/STASH IN THE BUFFER 
/BUMP THE BUFFER POINTER 
/THE BUFFER POINTER 
/BOP UP THE COUNT 

/SEND OUT ANOTHER CHAR IF ALL IS WELL 
/AND EXIT 



/THIS BUMPS THE RING BUFFER POINTER 



/TEST FOR WRAP AROUND 
/? 

/GET MINUS END ♦START 

/NOW READJUST POINTER IF NECESSARY 



0 

TAD 



COUNT 



/THIS CHECKS THE OUTPUT STATUS 

/GET THE NUMBER OF CHARS IN THE BUFFER 



1344 

1345 

1346 

1347 

1350 

1351 

1352 

1353 

1354 

13 55 

1356 

13 57 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

13 70 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1420 

1421 

14 22 

14 23 

14 24 

1425 

1426 

1427 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

14 37 

1440 

1441 

1442 



0742 


7650 




SNA CLA 




0743 


5740 




JMP I 


CHECK 


0744 


6041 




TSF 




0745 


5740 




JMP I 


CHECK 


0746 


6661 




LSO 




0747 


5740 


CNOPt 


JMP I 


CHECK 


0750 


6214 




RDF 




0751 


1353 




TAD 


CCDF 


0752 


3356 




DCA 


.*4 


07 53 


6201 


CCDft 


CDF 


0 


0754 


4276 




JMS 


GGGET 


0755 


4763 




JMS I 


CTYPO 


0756 


0000 




0000 




0757 


5740 




JMP I 


CHECK 



0760 0000 

0761 7510 
07 62 1400 
0763 2527 



/ 
/ 
/ 
/ 
/ 
/ 

COUNTf 

PLTST, 

PLOVRi 

CTYPO, 

/ 

f 

t 

i 

/ 

/ 

/ 

i 



-BAD ♦FIRST 

-BAD 

TYPO 



0764 


0000 SKIP2i 


0 




0765 


3200 


OCA 


SO EC 08 


0766 


1134 


TAO 


P24f 


0767 


44 01 


JMS I 


OECOUT 


0770 


2200 


IS2 


S0EC06 


0771 


5366 


JMP 


,-3 


0772 


5764 


JMP I 


SKIP2 



0773 


0000 


VPRSRV, 






0774 


47 77 




JMS 1 


VPRSRW 


0775 


4331 




VSAVE 




0776 


5773 


/ 
/ 
/ 
/ 


JMP I 


VPRSRV 


0777 


7775 


VPRSRH, 

/ 

f 


WRITE 





/RETURN IF NO CHARS IN THE BUFFER 

/KEYBOARD OK??? 

/NOPE, RETURN NOW 

/HOW ABOUT THE LINE PRINTER 

/IF NO LINE PRINTER THIS GETS 2APPED 

/READ IN THE PRESENT DATA FIELD 

/SAVE IT AWAY 

/SAVE IT AWAY FOR A SECOND 

/RESET THE DATA FIELD TO FIELD ZERO 

/GET A CHAR FROM THE BUFFER 

/NOW OUTPUT IT RIGHT AWAY, 

/RETURN COF GOES HERE 

/NOW RETURN TO THE CALLER 



/NUMBER OF CHARACTERS NOW IN THE BUFFER 
/-UPPER LIMIT 

/ADDRESS OF THE ACTUAL PUTTER 



/SAVE SKIP COUNT 



/THIS ROUTINE PRESERVES LOCATIONS 6400-67777 
/IN THE SCRATCH AREA. CALL THE WRITE ROUTINE 

/AND RETURN TO THE CALLER. 



/POINTER TO THE WRITE ROUTINE. 



14 43 / 

1444 / 

14 45 / 

1446 / 

1447 / 

1450 / 

1451 / 

1452 / 

1453 EJECT 



^ r; 



1454 



•a 



1455 SCOLON*200 

1456 COMMAB600 

1457 SYM9=4000 

1460 EQUALS=1400 

1461 USYMB=2000 . ^rC 

1462 EXCtAM'2200 , 4> 

1463 ANOS«3400 / ^(J^' 

1464 PUUSM600 _| 

1465 MINUS=5200 ^.^-Ot^^^^^ " \ 

1466 SPACE«5600 W-*^ 

1467 ALU«7600 ^ .^/^^-^ ? 

1470 /POP -12 ASSEMBLER PAGE 4 ,^,^,fvi>^'^ ^ 

1471 1000 0000 EXPR. 0 ' !/ . ^ , I 

1472 1001 U64 TAD CON , / .-W-H Vc?/«^- 
^473 1002 4^05 Jf^S ! PUSgl^,^. / ^ ,^ $ /. ( ^' ^'^ ^ 

1474 1003 3164 OCA CON y^^T^ 

1475 1004 1055 TAO INST 

1476 1005 4505 JMS I PUSHl 

1477 1006 3055 OCA INST 0 
1500 1007 1054 TAD MICROL 



1010 4505 JMS I PUSHl 

1504 



1502 1011 3054 OCA MICROU ./c; , . , j^--^^^'- C^^-""^ ^ ^ /' 

1503 1012 1034 TAO SGN , : a >rf^^^ \ ■ L. T^^^ 

1504 1013 4505 JMS 1 PUSHl / ^^^^ j, ),uh^l^ Ok^ ^ ^ 

1505 1014 1365 TAD CRIOR /OR 

1506 1015 3034 OCA SGN 

1507 1016 1275 TAO H6 ^. A / 

1510 1017 4505 JMS I PUSin^™^^_ 'X - ,^^ ij^^i/*^^-^ ' 

1511 10 20 3275 OCA H6 

1512 1021 1200 TAD EXPR 

1513 1022 4505 JMS I PUSHl 

1514 1023 7410 SKP 

1515 1024 4504 A, JMS 1 10X1 

1516 1025 4507 JMS I GETSYl 

1517 1026 2076 8-1000HJSYMB 

1520 1027 4076 8-1000*SYMB 

1521 1030 5624 A-1000*SPACE 

1522 1031 4655 C-1000*PtUS 

1523 10 32 52 60 C* 3- 1000 ♦M INUS 
1*24 1033 2262 C*5-1000*E XCtAM 
1525 1034 0313 G-1000*S COLON 



1526 



1035 3464 C+7-1000*ANDS 

1527 1036 7713 G-1000*ALL 

1530 1037 1024 TAO VAL 

1531 1040 5243 JMP .♦S 

1532 1041 7200 Blr CLA 

1533 1042 1053 TAD LWC 

1534 1043 4434 JMS I SGN 

1535 1044 7410 SKP 

1536 1045 4504 JMS I IDXl 

1537 1046 4507 82, JMS I GETSYl 
15 40 
1541 



1047 5662 C*5ol000*SPACE 
1050 0707 GET»1-1000*COMMA 



15 42 1051 4037 91»2-1000*SYMB 

1543 1052 2037 , B1.2-1000*US YMB / ; p CM>Z^^' 

1544 1053 1540 \ ERONE-1000*EOUALS - / - 
1054 0031 A*5«1000 



1545 1054 0031 . . _ 

1546 1055 1366 C, TAD CRIOR^l /PLUS 

1547 1056 3034 OCA SGN 
1550 1057 5245 JMP B2-1 
1551 



1060 1367 TAD CRI0R*2 /MINUS 



1552 1061 5256 JMP C*l 



/ 



A 

■X 



1553 


1062 


1365 




TAO 


CR lOR 


1554 


1063 


52 56 




JMP 


C*l 




1064 


10 flO 




TAD 


CRI0R*3 


15 56 


1065 


52 56 




JMP 


C*l 


1557 


10 66 


10 37 


H» 


TAO 


M00£ 


1560 


10 67 


77 aa 

1 1 Vtt 




SMA 


CLA 


15 61 


10 70 


53 04 




JMP 


LINK I 


1562 


110 / 1 


11 c ^ 




TAO 


P400 


1700 


110 fc 


1 9 7C! 
1< /9 




TAD 


H6 


1564 


1073 


32 75 




OCA 


H6 


1565 


1 fl 74 
110 / •* 


5225 




JMP 


A*l 


1566 




0000 


UA 


0 




1567 


107 6 


1024 


R . 


TAD 


VAL 


15 70 


10 77 


4434 




JHS 


I SGN 




1 1 0101 

11 1010 


45 07 




JMS 


I GETSYl 




11 01 


1 («A9 
1 




£QU-1000«£OUAUS 


1573 


1102 


57 10 




GeT«1000«SPACC 




1103 


flISI A 7 




B2«l-1000 


13 / 3 


llB^ 


1 T7T 

10 / 0 




TAD 


P10 


1576 


1105 


1373 


UN r 


TAD 


P10 


1577 


11 06 


52 72 




JHP 


H*4 


1600 


11 07 


47 7 J 




JMS 


I DEFINl 


1601 


1110 


47 72 


GETi 


JMS 


I GtTAOl 


1602 


1111 


1165 




TAD 


ADR 


16 03 


1112 


4 7 65 




JMS 


I CRIOR 


1604 


1113 


4506 




JMS 


1 POPUl - - 


1605 


1114 


3200 




DC A 


EXPR 


1606 


1115 


11 64 




TAD 


CON 


1607 


1116 


3033 




OCA 


EVAL 


1610 


11 1/ 


1 9 7R 
IC 73 




TAD 


H6 


lOll 


11 CIO 


wl OO 




OCA 


IND 


10 Ic 


11 21 






JMS 


I POPUl 


10 10 


11 


32 75 




DC A 


H6 


1614 


11 £0 


•♦9 1^0 




JMS 


I POPUl 


16 IS 


11 24 


30 34 




DC A 


SGN 


1010 


11 CP 


1 01 e; A 
110 p** 




TAD 


MICROL 


101 / 


1140 


X0I as 
010 109 




OCA 


MICROS 




lie/ 


4506 




JMS 


I POPUl 


lOel 


11010 


010 94 




DC A 


MICR OL 


16 22 


4 1 11 
11 Ol 


1 1099 




TAO 


INST 


1623 


11 32 


30 56 




OCA 


MICRO 


1624 


11 33 


4506 




JMS 


1 POPUl 


lOcD 


1 1 


Op 99 




OCA 


INST 


1626 


1135 


4506 




JMS 


I POPUl 


1627 


1136 


3164 




DC A 


CON 


1630 


1137 


5600 




JMP 


I EXPR 


1631 






/ 






1632 


1140 


5741 


ERONCf 


JMP 


I .♦I 


1633 


1141 


3766 




COUERR 


1634 












1635 


1142 


1771 


CQUi 


TAD 


I REPUNl 


1636 


1143 


3364 




OCA 


CRIOR-1 


1637 


1144 


3006 




OCA 


EQRETI / 


1640 


1145 


45 04 




JMS 


I 1 0X1 


1641 


1146 


4477 




JMS 


I EXPRl 


1642 


1147 


7240 




CLA 


CM A 


1643 


1150 


3006 




OCA 


EQRETI 


1644 


1151 


1364 




TAO 


CRIOR-1 


1645 


1152 


4512 




JMS 


1 SOECOl 


1646 


1153 


1033 




TAO 


EVAL 


1647 


1154 


6211 




6211 


1650 


1155 


3422 




OCA 


I VADR 


1651 


1156 


6201 




6201 



/OR 



/AND 



■T 



1652 


1157 


4511 




JMS 1 


TYPADl' 


1653 


1160 


40 00 




SYM8 




1654 


1161 


44 65 




JMS I 


PASSEK 


1655 


1162 


4466 




JMS I 


CURSKA 


1656 


1163 


5501 




JMP I 


MA INI 


1657 


1164 


0000 




0 




1660 


1165 


1600 


CRIOR. 


RIOR 




1661 


1166 


4235 




RADO 




1662 


1167 


4211 




RSU8 




1663 


1170 


3713 




RAND 




1664 


1171 


1747 


REPUNl 


, RESTOR 


-2 


1665 


1172 


1200 


CETADl 


, GETAOR 




1666 


1173 


0010 




P10» 


10 


1667 


1174 


0227 


OEFINl 


, CURREN 


1670 


1175 


1157 


STEXDi 


TAO P7 




16 71 


1176 


44 76 


JMS I 


ERRl 




1672 


1177 


5517 


JMP 1 


HON 




1673 








EJECT 





16 74 






f r Ur *i c 




1675 






*1200 




16 76 


1200 


00 00 


GE TA DR i 


0 


1677 


1201 


4504 




■MS T IQVI 


17 00 


1202 


1200 




Tin CTTAnR 


1701 


1203 


4505 




JMS I ^USMl 


1702 


1204 


4477 




JHS I FX PR! 


1703 


1205 


1037 




Tin MfihF 
1 m u nunc 


1704 


1206 


7700 




SMA CLA 


1705 


1207 


5250 




JMP 1 Mi(QR 


1706 


1210 


1056 






1707 


1211 


7700 




SMA CLA 


1710 


1212 


5222 




JH P CH KL A 


1711 


1213 


1164 




TAD CQN 


1712 


1214 


7106 




CLL RTL 


1713 


1215 


7006 




RTL 


X714 


1216 


0157 




AND P7 


1715 


1217 


1261 




TAD M6A 


1716 


12 20 


77 00 




SMA CLA 


1717 


12 21 


52 57 




JMP LCVFL*! 


17 20 


12 22 


10 33 


CHKl,A» 


TAD EVAL 


1721 


1223 


0146 




AND P7 60 0 


17 22 


12 24 


74 50 




SN A 


17 23 


1225 


5242 




JHP AUAY^l " 


1724 


12 26 


7041 




CIA 

V 1 A 


1725 


1227 


1031 




1 AU Ar Awe. 


1726 


1230 


76 50 




SNA CLA 


1727 


1231 


524 1 




IMP AUAV 

jnr ANAT 


1730 


1232 


70 01 




4A u 


1731 


1233 


4662 




JMS t MUPACr 


17 32 


12 34 


52 36 




JMP LFAVr 


1733 


1235 


3165 






1734 


1236 


4506 


LEAVEi 


JMS f PfSPUl 


1735 


1237 


3200 




nr k nPTAnp 

uitf n uc i A un 


1736 


12 40 


5600 






1737 


1241 


11 47 


AHAY t 


Tin P2flfl 


l740 


12 42 


30 07 




UUA Itnr 


1741 


1243 


1033 




Tin ruAi 

TAU bVAU 


15^42 


1244 


0145 




Alun Pi 
AN U ri f f 


1743 


1245 


1007 




TAH TFMP 

1 A U 1 L nr 


1744 


1246 


11 66 




TAO IND 


1745 


1247 


5235 




tHP iFAUr-l 


17 46 


12 50 


1005 




TAR Mf rn nfi 


1747 


1251 


7700 




SMA CLA 


17 50 


1252 


5264 




JHP CHKL 


1751 


1253 


1033 




Tin run 

lAW tVAL 


1752 


1254 


0144 




AKin Pi 777 
AINU r* » f » 


1753 


1255 


11 66 




T A n T Wft 
1 AU 1 viiJ 


17 54 


12 56 


30 33 


i.L TB.L f 


nrA ruAi 

A L V AL 


1755 


1257 


1033 




TAO EVAL 


1756 


1260 


5235 




JMP LEAVE-1 


1757 


1261 


77 72 


H6Af 


-6 


17 60 


1262 


2317 


NUPAGEi 


UNDERR 


1761 


1263 


0000 






1762 


1264 


1014 


CHKLi 


TAD TYPE A 


1763 


1265 


7006 




IRTL 


1764 


1266 


0136 




lAND P6000 


1765 


1267 


7640 




iSZA CLA 
JMP LEVCL-3 


1766 


12 70 


5253 




1767 


1271 


1033 




TAO EVAL 


1770 


12 72 


1166 




TAO IND 


1771 


12 73 


52 56 




JMP LEVEL 


1772 


1274 


0000 


LOT, 


0 



PAGE 5 



-7^ D 



1773 
1774 
17 75 
17 76 

nil 

2000 

2001 

2002 

20 03 

2004 

2003 

2006 

2007 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

20 27 

20 30 

2031 

2032 

2033 

2034 

2035 

20 36 

2037 

20 40 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2050 

2051 

2052 

20 53 

2054 

2055 

2056 

2057 

2060 

2061 

2062 

2063 

2064 

20 65 

20 66 

2067 

20 70 

2071 



1275 

1276 

1277 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1310 

13 U 

1312 

1313 

1314 

1315 

1316 

1317 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

13 70 

1371 

1372 

1373 



1044 
7450 
56 74 

32 63 

1263 

1125 

7700 

5311 

2050 

4504 

12 63 

56 74 

3044 

5674 

0000 

4274 

3263 

12 63 

7106 

3024 

1024 

7006 

7004 

1024 

1263 

3024 

4274 

1024 

5713 



TAD 
SNA 
JMP 

DC A 
TAD 
TAD 
SMA 
JMP 
IS2 
JMS 
TAO 
JMP 

NOTLOTf OCA 



AIM, 



ORGIC, 



900 AAS* 
4313 
3161 
4313 
3162 
4313 
3163 
4274 
7650 
5732 
5341 
4504 
4477 
1037 
7700 
53 70 
1033 
3030 
1033 
0146 

7041 

1031 

7650 
5365 

4502 

1030 

3033 

4465 

4466 

55 01 

1033 

0144 

1046 

3030 



LNRT. 



LINKIC 



JMP 
0 

JMS 
OCA 
TAO 
CLU 
OCA 
TAO 
RTU 
RAL 
TAO 
TAD 
OCA 
JMS 
TAO 
JMP 
0 

JMS 
OCA 
JMS 
OCA 
JMS 
OCA 
JMS 
SNA 
JMP 
JMP 
JMS 
JMS 
TAD 
SMA 
JMP 
TAO 
OCA 
TAO 
ANO 
CIA 
TAO 
SNA 
JMP 
JMS 
TAO 
OCA 
JMS 
JMS 
JMP 
TAO 
AND 
TAO 
OCA 



CH ARX 

I LOT 

NUPAGE*1 

NUPAGE+1 

M45 

CLA 

NOTLOT 
IN /LETTER 
I IDXl 
NUPAGE*! 
1 LOT 
CH ARX 
I LOT 

LOT 

NUPAGE*1 
NUPAGE*1 
RTL 
VAL 
VAL 



OR DIGIT 



VAL 

NUPAGE*! 

VAL 
LOT 
VAL 
I AlW 



/CHR. M 

/CHR. •sa 

/CHR •! 



AlW 

TEMl 
AlH 
TEM2 
AlW 
TEM3 
LOT 
CLA 
I AAS 
,-3 

I lOXl 
I EXPRl 
HODE 
CLA 

LINKIC 

EVAL 

AAOR 

EVAL 

P7600 

APAGE 

CLA 

LNRT 

I PAGEl 

AAOR 

EVAL 

I PASSEK 
I CURSKA 
I MAINI 

EVAL 
PI 77 7 
ABANK 
AAOR 



2072 1374 5365 JMP LNRT 

2073 EJECT 



2074 

2075 

2076 

2077 

2100 

2101 

2102 

2103 

2104 

2105 

21 i6 

2107 

2110 

2111 

2112 

2113 

2114 

2115 

21X6 

2117 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2140 



END 



0 F 



ASSEMONC!!!!! 



CHAIN »ASSEM2«» 



/GO GET THE SECOND PART NOW, 



0000 
0001 
00 02 
0003 
00 04 
0005 



*20 



PMQOE 



0007 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0030 



BEGINNING OF ASSEMTNO. 



0031 / 

0032 / 

0033 / 

0034 / 

0035 / 

0036 / 

0037 / 
00 40 / 

0041 / 

0042 EJECT 



0043 

0044 

0045 

0046 

0047 

0030 

0051 

0052 

0853 

0054 

0055 

0856 

0057 

00 60 

0061 

0062 

0063 

0064 

0865 

0866 

0067 

0070 

00 71 

0072 

0073 

8074 

0075 

00 76 

0077 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0138 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

8140 

0141 



1400 
1401 
14 02 
1403 
14 04 
1405 
1406 
1407 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1420 
1421 
1422 
14 23 
1424 
1425 
1426 
1427 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
14 40 
14 41 
1442 
1443 
1444 
1445 
1446 
1447 
14 50 
1451 
1452 
1453 

1454 
1455 
1456 
14 57 
1460 
1461 
1462 
1463 
1464 



5201 
1032 
3027 
3035 
3037 
4320 
1350 
3200 
4735 
4530 
7240 
3777 
4404 
4653 
4504 
1376 
3173 
1357 
3047 
3020 
3166 
5775 
44 77 
1020 
76 50 
5304 
1033 
4236 
4461 
5211 



3033 
45 20 
2030 
1037 
7700 
5252 
1030 
0145 
7640 
5636 
4502 
5636 
21 32 



1003 
7710 
5654 
1051 
1122 
7650 
5654 
1051 



f 
/ 
/ 
/ 
/ 

/PDP-12 
/ 

/ 

PASSl* 



PASSIP, 
MAINSCi 

MAINSFi 
OOCAL, 



TACK» 
ONCRCGi 



ASSEMBLER PAGE 6 

• 1400 

JMP PASSl 
TAD PERMA 
OCA SEND 
OCA PASS 
OCA MODE 
JMS SETORG 
TAD CJMP1*1 
OCA HA IN 
JMS I OCTSl 
JMS I LINENO 
CLA CMA 

DC A \ PTOCHC 
JMS 1 CNTUPI 
JMS I CLENUP 
JMS I IDXl 
TAD M60 
DC A SPCUNT 
TAD LISTl 
DCA POINT 
DCA ANY 
OCA IND 

JMP I PS INTER 
JMS I EXPRl 
TAO ANY 
SNA CIA 
JMP MAINSA 
TAO EVAl 
JMS ONEREG 
JMS I EMPTYl 
JMP MAINSE 



/SWITCH 



/SET TAOIX TO OCTAL 
/RESET THE COMMA SWITCH, 



IJ . 



/NOTHING TO BE ASSEMBLED 



/END OF PAGE 



DCA EVAL 

JMS I PUNONl 

ISZ AADR 

TAO MODE 

SMA CLA 

JMP LNKREG 

TAD AAOR 

AND P177 

S2A CLA 

JMP ! ONEREG 

JMS I PACEl 
LNKREG, JMP I ONEREG 
CLENUP, CLEARR 

/SYMBOLIC ASSEMBLY SAVE ROUTINE 
LSTSYM, 0 

TAO LISTWD 

SPA CLA 

JMP I LSTSYM 

TAD ITEM 

TAO M43 

SNA CLA 

JMP I LSTSYM 

TAO ITEM 



H J 



0142 


1465 


2356 




ISc SWOT 


0143 


1466 


5274 




JMP DOLE FT 


0144 


1467 


1703 




TAD I SYMBU 


0145 


14 70 


3703 




OCA I SYMBU 


0146 


1471 


2303 




IS Z SYMBU 


0147 


1472 


2057 


LSRTEi 


ISc CHARAC 


0150 


14 73 


56 54 




JMP I LSTSYM 


0151 


1474 


7106 


OOLEFTi 


CUL RTL 


0152 


1475 


70 06 




RTL 


0153 


1476 


7006 




RTL 


0154 


1477 


3703 




OCA I SYMBU 


0155 


1500 


7040 




CM A 


0156 


1501 


3356 




OCA SWOT 


0157 


1502 


5272 




JMP LSRTE 


0160 


1503 


3102 


SYMBU> 


SYMBUF 


0161 


15 04 


1035 


MAlNSAf 


TAD PASS 


0162 


1505 


7650 




SNA CLA 


0163 


1506 


5211 




JMP MAINSE 


0164 


1507 


1003 




TAO USTWO 


0165 


1510 


7710 




SPA CLA 


0166 


1511 


5211 




JMP MAINSE 


0167 


1512 


1167 




TAD ERRCNT 


0170 


1513 


7640 




S2A CLA 


0171 


1514 


52 34 




JMP TACK 


0172 


1515 


4465 




JMS I PASSEK 


0173 


1516 


4466 




JMS I CURSKA 


0174 


1517 


5211 




JMP MAINSE 


0175 


1520 


0000 


SE TORG » 


0 


0176 


1521 


1150 




Yin a A not ai 


0177 


1522 


30 30 




□LA AAUn 


0200 


1523 


1150 




Tin D ^ 0101 (X 

T A U r ^ vV V 


0201 


1524 


3031 




OCA APAGE 


0202 


1525 


1150 




▼ in DitfUflm 
TAU r*t!flWB 


02 03 


1526 


3033 




n ^ A IT II A 1 

OCA EvAL 


0204 


1527 


1150 




TAD P4000 


0205 


1530 


30 46 




OCA ABANK 


0206 


1531 


3002 




OCA ERTuT 


0207 


1532 


3036 




OCA FLOWD 


0210 


1533 


3167 




OCA ERKCNT 


0211 


1534 


5720 




JMP I SETORG 


0212 


1535 


2235 


OCTSlt 


DOTS 


0213 


1536 


3002 




PUNONE+1 


0214 


1537 


7240 


PASS2i 


CL A CM A 


0215 


1540 


3035 




OCA PASS 


0216 


1541 


1121 




TAD M1000 


0217 


1542 


3736 




OCA I OCTbl< 


0220 


1543 


4320 




JMS SETORG 


0221 


1544 


4460 




JMS I INITI 


0222 


1545 


1347 




TAD CJMPl 


0223 


1546 


5207 




IMP PASS IP 


0224 


1547 


5201 


CJMPI* 


JMP PASSl 


0225 


1550 


5337 




JMP PASS2 


0226 


1551 


0000 


RESET, 


0 


0227 


1552 


1030 




TAD AAOR 


0230 


1553 


0146 




AND P7600 


0231 


1554 


3031 




OCA APAGE 


02 32 


1555 


5751 




JMP I RESET 


02 33 


15 56 


0000 


SW OT . 


0 


0234 


1557 


2731 


UISTI. 


LISTA 


02 35 


1560 


0000 


ININST 


. 0 

TAO INST 


0236 


1561 


1055 




0237 


1562 


77 00 




SMA CLA 


0240 


1563 


5372 




JMP 



22 41 


1564 


1024 




TAO 


VAl 


0242 


1565 


0136 




AND 


P6000 


0243 


1566 


7650 








0244 


15 67 


53 72 




JMP 


.♦3 


0245 


1570 


7040 




CM A 




0246 


1571 


3054 




OCA 


MICROL 


0247 


1572 


1025 




' TAO 


VALK 


0250 


1573 


3024 




OCA 


VAL 


0251 


1574 


57 60 




JMP I 


ININST 


0252 


1575 


1426 


PS INTER, 


•OOCAL 




0253 


1576 


7716 


M60. 


-62 




0254 


1577 


0260 


PTOCMC, 


CO MM AN 




0255 






/ 






0256 






/ 






0257 






/ 






0260 








EJECT 





0261 

02 62 

0263 

0264 

0265 

0266 

0267 

0270 

0271 

0272 

0273 

0274 

0275 

02 76 

02 77 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0330 

0331 

03 32 

03 33 

0334 

0335 

0336 

0337 

0340 

0341 

03 42 

0343 

0344 

0345 

0346 

0347 

0350 

03 51 

0352 

0353 

0354 

0355 

03 56 

0357 



/PDP-12 ASSEMBLER PAGE 
•1600 



D 



1600 
1601 
1602 
1603 
1604 
1605 
1606 
16 07 



1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1640 



0000 


RIOR 1 


0 




3024 




DC A 


VAL 


1164 




TAD 


CON 


7040 




CM A 




0024 




AND 


VAL 


1164 




TAD 


CON 


3164 




OCA 


CO N 


56 00 


/ 


JMP I 


RI OR 


4703 


/ 

STRING* 


JMS I 


GENINI 


7041 




CIA 




3024 




DCA 


VAL 


4:! 41 




JMS 


ST GET 


5273 




JMP 


ST NO DUMP 


5224 




JMP 


ST INTO 


4241 


STLOOP* 


JMS 


STGET 


52 67 




JMP 


ST DUMP 


1033 




TAD 


CVAL 


4704 




JMS I 


ONCRCI 


44 65 




JMS I 


PASSEK 


4500 




JMS I 


TYCARI 


1051 


ST INTOi 


TAD 


ITEM 


0160 




AND 


P77 


7106 




CLL RTL 




7006 




RTU 




7006 




RTL 




3033 




DCA 


EVAL 


42 41 




JMS 


STGET 


5267 




JMP 


STDUMP 


1051 




TAD 


ITEM 


0160 




AND 


P7 7 


1033 




TAD 


EVAL 


3033 




DCA 


EVAL 


5216 




JMP 


STLOOP 



e^-R 



1641 


0000 


/ 

STCET, 


0 


GENINI 


1642 


4703 




JMS I 


16 43 


1024 




TAD 


VAL 


16 44 


76 40 




SZA CLA 




16 45 


22 41 




ISH 


STGET 


1646 


1122 




TAD 


M4 3 


1647 


1051 




TAD 


ITEM 


1650 


7640 




SZA CLA 




1651 


5261 




JMP 


STNOT 


1652 


4465 




JMS I 


PASSEK 


1653 


'4466 




JMS I 


CURSKA 


1654 


4532 




JMS I 


SCLEAR 


1655 


1705 




TAD I 


SPTO60 


1656 


3173 




DCA 


SPCUNT 


1657 


4530 




JMS I 


LINENO 


1660 


5641 




JMP 1 


STGET 


16 61 


1051 


STNOT, 


TAD 


ITEM 






ASMirZ 


TERMC-44 








TAO 


STM4 4 


1662 


7640 




SZA CLA 


STGET 


16 63 


56 41 




JMP I 


1664 


47 02 




JMS I 


SQERR 


1665 


4702 




JMS I 


SQERR 


16 66 


5517 




JMP I 


MON 



9~o 



/GET THE CHAR, 

/DO WE WANT A DOLLAR SIGN AT THE END. 
/YEP. ADO IT IN. 



0360 


1667 


1033 


STOUMP, 


» TAD 


E V AL 


0361 


16 70 


47 04 




JMS I 


ONERE I 


03 62 


1671 


44 65 




JMS I 


passek 


0363 


1672 


4500 




JMS I 


TYCA R I 


0364 


1673 


1051 


STNODUMP.TAD 


I TEM 


0365 


1674 


1122 




1 A u 


M4 3 


0366 


1675 


7650 




SNA CLA 




0367 


1676 


5701 




JM P I 


5:n rn PT 


0370 


1677 


4703 




jna i 




0371 


1700 


5274 








0372 












03 73 












8374 












0375 








AS M I Fi? 




03 76 






SYM4 4# 


«»4 4 




0377 


1701 


2714 


sorn RT . 


r U n i 




0400 


1702 


3201 


SQCRRf 


rppn D 




0401 


1703 


3670 


cr y r u r . 






0402 


1704 


1436 


QMpBr 1 . 






0403 


1705 


1576 


9r 1 w QV f 


MAR 




04 04 












0405 


1706 


0000 


lOTrQT . 
iJD 1 & 3 1 f 


01 




0406 


1707 


2012 


>R MS TR . 


IOC 


CURL IN 


0407 


1710 


7300 




CLA CLL 




0410 


1711 


7240 




CLA CMA 




0411 


1712 


3003 




nr A 

A 


LIST WD 


0412 


1713 


1332 




TA D 


JB SM F 


0413 


1714 


33 07 




OC A 


JBMSTR 


04 14 


1715 


1012 




tao 


CURL I N 


0415 


1716 


7421 




/4<;i 




0416 


1717 


7501 








0417 


17 20 


7161 




CLL CML 


A i AU 


0420 


17 21 


1333 




Tad 


IQ T A PT 
Jo 1 An 1 


0421 


1722 


76 60 




SNL S2A 


cl a 


0422 


1723 


57 06 




JMP I 


ID Tr CT 


0423 


1724 


1334 




TAD 


JEND 


04 24 




71 61 




CLL CML 


CMA I AC 


04 23 


17 26 






TAD 


CURL IN 


0426 


1727 


7670 




SZL SNA 


CLA 


04 27 


1730 


3003 


JNOr f 


DC A 


LI ST HQ 


04 30 


1731 


5706 




JMP 1 


JBTEST 


04 31 






/ 






04 32 






/ 






04 33 


1732 


IC 


J8SMF# 


tsz 


CURL IN 


0434 


1733 


0000 


jC T i DT . 


0 


04 35 


l7 34 


7777 




7777 




04 36 


17 35 


77 77 


HIA, 


-1 




04 37 






/ 






0440 






/ 






04 41 






/ 






0442 






/ 






04 43 






/ 






0444 






/ 






04 45 






/ 






0446 






/ 






0447 


17 36 


0000 


5AVC, 


0 




0450 


1737 


1026 




TAO SCURR 


0451 


1740 


3347 




OCA RESTOR-2 


0452 


1741 


1014 




TAD TYPEA 


0453 


1742 


3346 




OCA RESTOR-3 


0454 


1743 


1021 




TAO TYPE 




0455 


1744 


3350 




DCA RESTOR-l 


0456 


1745 


5736 




JMP I SAVE 



/OO ME WANT THE LITTERAL 1N??7 
/YEP, ASSEMBLE IT IN. 



/THIS IS MADE A NOP FOR THE SEMI -COLON FUDGE 



/RESET THE FUDGE SWITCH 
/BY REPLACING THE ISH 

/THIS CODE DISPLAYS THE LINE NUMBER BEING 
/ASSEMBLED IN THE HQ. 



04 57 


17 46 


00 00 




0 


0460 


1747 


0000 




10 


0461 


1750 


0000 




0 


0462 




0000 


BrsTnR . 


0 


046j 


1752 


1447 




TAD RCST0R"'2 


0464 


1753 


4512 




jMs I soecoi 


0465 


1754 


1346 




TAD RESTOR-3 


0466 


1755 


3014 




OCA TYPEA 


0467 


1756 


1350 




TAD RESTOR-1 


0470 


1757 


30 21 




DC A TYPE 


0471 


1760 


5751 




JMP 1 RESTOR 


04 72 






/ 




0473 






/ 




0474 






/ 




0475 






/ 


EJECT 


0476 










04 77 






/PDP-12 


ASSEMBLER PAGE 


0500 








*2000 


0501 


2000 


0000 


ENTS, 


0 


0502 


2001 


1027 




TAO SEND 


0503 


2002 


4512 




JHS I SDECOl 


0504 


2003 


6211 




6211 


0505 


2004 


1024 




TAD VAL 


0506 


2005 


3422 




DCA I VAOR 


0507 


2006 


1161 




TAD TEMl 


0510 


2007 


3423 




OCA I SADR 


0511 


2010 


2023 




ISH SADR 


05 12 


2011 


1162 




TAO TEM2 


0513 


2012 


3423 




DCA I SADR 


0514 


2013 


2023 




ISZ SADR 


0515 


2014 


1163 




TAD TEM3 


0516 


2015 


3423 




DCA I SADR 


0517 


2016 


6201 




6201 


0520 


2017 


7344 




MTWO 


0521 


2020 


1023 




TAD SADR 


0522 


2021 


7450 




SNA 


0523 


20 22 


56 33 




JMP I SADROV 


0524 


2023 


3023 




DC A SA DR 


0525 


2024 


1600 




TAO I ENTS 


0526 


20 25 


3227 




DCA ,*2 


0527 


20 26 


4511 




JMS 1 TYPADl- 


0530 


2027 


00 00 




0 


0531 


2030 


2200 




ISZ ENTS 


0532 


2031 


2027 




132 SEND 


0533 


2032 


5600 




JMP I ENTS 


0534 






/ 




0535 


20 33 


11 75 


SAOROV , 


STEXD 


05 36 


2034 


7721 


M5 7, 


-57 


0537 


20 35 


3670 


GETS, 


GETIN 


0540 


2036 


37 01 


COMS, 


COMMEN 


0541 






/ 




0542 


2037 


0000 


lOX, 


0 


0543 


20 40 


4635 




JMS I GETS 


0544 


2041 


1234 




TAD M57 


05 45 


20 42 


7650 




SNA CIA 


0546 


2043 


5636 




JMP I COMS 


05 47 


2044 


1051 




TAO ITEM 


05 50 








ASMirZ TERHC-44 


0551 








TAO M44 


0552 


2045 


7650 




SNA CLA 


0553 


20 46 


5773 




JMP I FINEND 


05 54 


2047 


44 64 


BIT, 


JMS I 8IT6A 


05 55 


2050 


3044 




OCA CHARX 


0556 


2051 


1044 




TAD CHARX 


0557 


2052 


3045 




DCA CHARX2 


05 60 


20 53 


5637 




JMP I IDX 


05 61 


2054 


0000 


EMPTY, 


0 


0562 


2055 


1003 




TAD LISTWD 


0563 


20 56 


70 40 




CM A 


0564 


2057 


0035 




AND PASS 


0565 


2060 


7650 




SNA CLA 


0566 


2061 


5654 




JMP I EMPTY 


0567 


2062 


1057 




TAD CHAR AC 


05 70 


2063 


7450 




SNA 


0571 


2064 


53 30 




JMP EMLEVE 


0572 


2065 


7041 




CIA 


0573 


2066 


3057 




DCA CHAR AC 


0574 


2067 


3175 




DCA TBCONT 


0575 


20 70 


1174 




TAD SY 



/ ao.J^^ ^ '''' t^^^- 



/RESET TO FIELD 0. 

/BACK UP SADR TO FIRST WORD OF NAME 



/IS IT ZERO? 

/YES, TO MANY SYMBOLS. ABORT WITH ERROR 
/Oy RESTORE SADR NOW. 



1 



/POINTER TO TOO MANY SYMBOLS ERROR. 



/IS END OF FILE CHAR A 44?? 
/YEP. ASSEMBLE IT IN NOW. 



/GET THE LISTING WORD 
/NEGATE IT. 
/AND WITH THE PASS. 
/LISTING AND PASS2? 
/NOPE. DONT PRINT ANYTHING 



0576 


20 71 


3172 


V7 fJ 


20 72 


74 10 


06 00 


2073 


21 72 


0601 


2074 


1572 


0602 


'301 7^ 


7C1 1 9 

'Wit 


VOVO 


2076 


70 12 


0604 


Qffl77 
CV 1 1 


7019 
' ID X<S 


06 05 


cXvv 


0160 


06 06 


fill 


3007 


0607 




70 40 


0610 


2103 


3170 


0611 


(Ci 10 


10 07 


0612 


2105 


11 33 


0613 


2106 


7650 


0614 


2107 


5356 


0615 


21 10 


43 47 


0616 


2111 


20 57 


0617 


2112 




0620 


21 13 


^ < "KOI 


0621 


2114 




0622 


21 15 


X9 f C 


06 23 


2116 


All ACi 
SX OD 


0624 


2117 


'V0I (X7 


06 25 


21 20 


Xl 7fl 


0626 


2121 


1007 


0627 




1133 


0630 




7650 


0631 


o^ OA 


5356 


0O3Z 




4347 


BO 0<3 


2126 


2057 


0634 


21 27 


5344 




2130 


4500 


0636 


2131 


5654 


0637 


91 39 


0000 




2133 


3057 


06 4 1 


2134 


3772 


0642 




1167 


0643 


2136 


1002 


0644 


2137 


3002 




2140 


3167 


0646 


91 41 
CX ^X 


11 74 
X* ' ~ 


00 4/ 


91 49 

kX 


3514 


0650 


91 AS 


5732 


0651 


AA 


47 46 


0652 


ci ^3 


5273 




91 46 

CX ''w 


37 37 


0654' 


Zx / 


00 00 


BO 99 




10 07 


0656 


2151 


4755 


0657 


2152 


4401 


0660 


2153 


2175 


0661 


2154 


5747 


0662 


2155 


3600 


0663 


2156 


1175 


0664 


2157 


1371 


06 65 


2160 


7500 


06 66 


2161 


5357 


06 67 


2162 


47 70 


0670 


2163 


4475 


0671 


2164 


3175 


06 72 


2165 


2170 


0673 


2166 


5326 


0674 


2167 


5311 



OCA EMPTRA 
SKP 

TMOCHR» iSZ EMPTRA 

TAD I EMPTRA 

RTR 
RTR 
RTR 

AND P77 
OCA TEMP 
CM A 

OCA SWITCH 
TAO TEMP 
TAD M47 
SNA CLA 

NOTABl. JMP OUTTAB 
JMS OUTTP 

DRHT. ISH CHARAC 
JMP ,♦2 
JMP EMLEVE 
JMS I LNCKA 
TAD I EMPTRA 
AND P77 
OCA TEMP 
OCA SWITCH 
TAO TEMP 
TAD M47 
SNA CLA 

N0TAB2, JMP OUTTAB 
JMS OUTTP 

OUFT» ISl CHARAC 
JMP TWOCH 

EMLEVE I JMS I TYCARI 
JMP I EMPTY 

CLEARR* 0 

OCA CHARAC 
OCA I SWOTA 
TAD ERRCNT 
TAO ERTOT 
OCA ERTOT 
OCA ERRCNT 
TAD SY 
OCA I SYB 
JMP I CLEARR 

TWOCH» JMS I LNCKA 
JMP TWOCHR 

LNCKA, LNCK 

OUTTP* 0 

TAD TEMP 
JMS I ONVRT 
JMS I OECOUT 
ISZ TBCONT 
JMP I OUTTP 
ONVRT, CONVRT 
OUTTABi TAO TBCONT 
TAO M10 
SMA 

JMP ,-2 
JMS I KLUG2 
JMS I SKIP 
OCA TBCONT 
1S2 SWITCH 
JMP OLFT 
JMP DRHT 



0675 


2170 


3744 


KLUG2* 


SPACK 


0676 


2171 


7770 


M10I 


.10 


0677 


2172 


1!>56 


SMOTA* 


SWOT 


0700 


2173 


3717 


riNENOi 


ENDMS 


0701 


2174 


7771 


M7TW0. 


-7 


0702 








EJECT 



0703 






/PDP-i2 


ASSEMBLER PAGE 


0704 






•2200 




0705 


2200 


0000 


OPCV, 


0 


07 06 


2201 


2020 




ISZ ANY 


0707 


2202 


3052 




OCA HIC 


0710 


2203 


3053 




OCA LWC 


0711 


2204 


1045 




TAD CHARX2 


0712 


2205 


1126 




TAO H67 


0713 


2206 


7450 




SNA 


0714 


2207 


5212 




JMP OPCS 


0715 


2210 


1242 




TAO DPCVM2 


0716 


2211 


7650 




SNA CLA 


0717 


2212 


4504 


OPCS. 


JMS I lOXl 


07 20 


2213 


10 45 




TAO CHARX2 


0721 


2214 


1125 




TAO M45 


07 22 


2215 


7500 




SMA 


0723 


2216 


5600 




JMP I OPCV 


0724 


2217 


1241 




TAO P12 


0725 


2220 


7510 




SPA 


0726 


2221 


5600 




JMP I OPCV 


0727 


2222 


3273 




OCA MTDG 


0730 


2223 


4243 




JMS MT10 


0731 


2224 


5212 




JMP OPCS 


0732 


2225 


4231 


DECIM, 


JMS DECIMS 


B733 


2226 


5503 




JMP I B21 


0734 


2227 


4235 


OCT, 


JMS OCTS 


0735 


2230 


5903 




JMP I B21 


0736 


22 31 


0000 


OtClMS, 


0 


0737 


2232 


1255 




TAO MTSW+4 


0740 


2233 


3251 




OCA MTSW 


07 41 


2234 


5631 




JMP I OECIMS 


0742 


2239 


0000 


OCTS, 


0 


0743 


2236 


1121 




TAD M1000 


0744 


2237 


3251 




OCA MTSW 


07 45 


2240 


5635 




JMP I OCTS 


0746 


2241 


0012 


P12, 12 




07 47 


2242 


77 76 


0PCVM2» 


-2 


0750 






/MULTIPLY LWC BY 10, 


07 51 


2243 


0000 


MT10, 


0 


0752 


2244 


1093 




TAO LWC 


0753 


2245 


0196 




AND P777 


0754 


2246 


3274 




OCA TIC 


0755 


2247 


4257 




JMS MTRL 


0756 


2250 


4257 




JMS MTKL 


0757 


2291 


4269 


MTSW, 


JMS MTAD 


0760 


2292 


4257 




JMS MTRL 


0761 


2253 


12 73 




TAD MTDG 


07 62 


22 54 


32 74 




OCA TIC 


0763 


2255 


4265 




JMS MTAO 


0764 


2256 


5643 




JMP I MT10 


0765 






/ROTATE 


: LWC LEFT 1 


0766 


2257 


0000 


MTRL, 


0 


0767 


2260 


7300 




CLL CLA 


0770 


2261 


1053 




TAO LWC 


0771 


2262 


7004 




RAL 


0772 


2263 


3053 




OCA LWC 


0773 


2264 


5657 




JMP I MTRL 


0774 






/AOO LWC TO TIC 


07 75 


2265 


0000 


MTAD, 


0 


07 76 


22 66 


73 00 




CLL CLA 


0777 


2267 


1053 




TAD LWC 


1000 


2270 


1274 




TAO TIC 


1001 


2271 


3053 




OCA LWC 



.SiS 



/CLEAR HIGH AND LOW PARTS 
/ GET THE NEXT CHARACTER 



/INDEX CHARACTER POINTER 



/IF LESS OR EQUAL TO 9 CHECK FOR GR 
/EQ. iERO 

/LESS THAN ZERO, EXIT NOT DIGIT 



/NOP FOR OCTAL, JMS MTAD FOR DECIMAL 



1002 


2272 


5665 




JMP I MTAD 


1003 






/SOME 


DATA STORAGE 


1004 


22 73 


0000 


HTDGi 


0 


1005 


2274 


0000 


TIC, 


0 


10 06 


2275 


0000 


ERR2i 


0 


1007 


2276 


1021 




TAD TYPE 


1010 


2277 


1136 




TAD P6000 


1011 


23 00 


76 50 




SNA CLA 


1012 


2301 


5675 




JMP I ERR2 


1013 


2302 


1014 




TAD TYPE A - - 


1014 


2303 


7106 




CLL RTL 


1015 


2304 


0136 




AND P6000 


1016 


2305 


6211 




6211 


1017 


2306 


14 22 




TAD I VADR - 


10 20 


2307 


6201 




6201 


10 21 


2310 


70 41 




CIA 


1022 


2311 


1030 




TAD AADR - 


1023 


2312 


76 50 




SNA CLA 


1024 


2313 


5675 




JMP I ERR2 


1025 


2314 


7326 




CLA CLL CML RTL 


1026 


2315 


4476 




JMS I ERRl 


1027 


2316 


5675 




JMP I ERR2 


1030 


2317 


0000 


UNDERR 


f 0 


1031 


2320 


2035 




ISZ PASS 


1032 


2321 


5332 




JMP EQCHK 


1033 


2322 


3007 


OCA TEMP 


1034 


2323 


7040 


CM A 




1035 


2324 


3035 


DCA PASS 


1036 


2325 


1007 


TAD TEMP 


1037 


2326 


4476 


JMS I 


ERRl 


1040 


2327 


7240 




CLA CMA 


1041 


2330 


3035 




DCA PASS 


1042 


2331 


5717 




JMP I UNDERR 


1043 


2332 


1135 


EQCHKi 


TAD M4 


1044 


2333 


7650 




SNA CLA 


1045 


2334 


4740 




JMS I EQCHKI 


1046 


2335 


7240 




CLA CMA 


1047 


2336 


30 06 




DCA EQRETI 


1050 


2337 


5330 


JMP EQCHK>2 


1051 


2340 


3366 


EQCHKI 


, EQUCHK 


1052 


2341 


00 00 


PUSK2t 


0 


1053 


2342 


3275 




DCA ERR2 


1054 


2343 


1142 




TAD P5000 


1055 


2344 


1047 




TAD POINT 

SMA CLA ^ 


1056 


2345 


7700 




1057 


2346 


5364 




JMP ERRl 2 


10 60 


2347 


1275 




TAD ERR2 


10 61 


23 50 


3447 




DCA I POINT 


1062 


23 51 


2047 




IS2 POINT 


1063 


2352 


5741 




JMP I PUSH2 


1064 


23 53 


0000 


CNTRLP 


* 0 


1065 


2354 


6031 




Ksr 


1066 


2355 


5753 




JMP I CNTRLP 


1067 


2356 


6036 




KRB 


10 70 


2357 


1151 




TAD M215 


10 71 


2360 


7650 




SNA CLA 


1072 


2361 


5763 




JMP I CNTMON 


10 73 


2362 


57 53 




JMP I CNTRLP 


1074 






/ 


1075 


2363 


4075 


CNTMON, 


- KILBUF 


1076 






/ 


1077 


2364 


1015 


ERR12, 


TAD Pll 


1100 


2365 


4476 




JMS I ERRl 



//3 ^/-^ 



7- 



/RETURN TO KILL BUFFER MONITOR RESTART 



..../ 



7 




1101 


2J66 


5517 


JMP I MON 


1102 


2367 


0000 ANYY, 


0 


1103 


2370 


1021 


TAD TYPE 


1104 


2371 


1136 


TAD P6000 


U05 


2372 


7450 


SNA 


1106 


2373 


2020 


IS2 ANY 


1107 


2374 


1136 


TAO P6000 


1110 


23 75 


76 50 


SNA CLA 


1111 


23 76 


2020 


ISZ ANY 


1112 


2377 


57 67 


JMP I ANYY 


1113 






EJECT 



0 



1114 






/POP-12 


ASSEMBLER PAGE : 


1115 






•2400 






1116 


2400 


0000 


ALPHA, 


0 




1X17 


2401 


4500 




JMS 


I TYCARI 


1120 


24 02 


3307 


SYMBLPi 


OCA 


FOUND 


1121 


2403 


1032 




TAD 


PERMA 


1122 


2404 


3026 




OCA 


SCURR 


1123 


2405 


7350 




CLA 


CMA CLL RAR 


1124 


2406 


3040 




OCA 


TEMIA 


1125 


2407 


7350 




CLA 


CLL CMA RAR 


1126 


2410 


3041 




DC A 


TEM1A*1 


1127 


2411 


7350 




CLA 


CMA CLL RAR 


1130 


24 12 


3042 




OCA 


TEMIA* 2 


1131 


2413 


1026 


NXCAND, 


TAD 


SCURR 


1132 


2414 


7041 




CIA 




1133 


2415 


1027 




TAO 


SEND 


1134 


2416 


7650 




SNA 


CLA 


1135 


2417 


52 74 




JMP 


PRSYMB 


1136 


2420 


1026 




TAD 


SCURR 


1137 


2421 


4512 




JMS 


I SDECOl 


1140 


2422 


6211 




6211 


1141 


2423 


1423 




TAD 


I SAOR 


1142 


2424 


7104 




CLL 


RAL 


1143 


24 25 


7020 




CML 




1144 


2426 


7530 




SHL 


SPA 


1145 


2427 


5270 




JMP 


REJECT 


1146 


2430 


7070 




RAR 


CMA CML 


1147 


2431 


1040 




TAD 


TEMIA 


1150 


24 32 


7040 




CMA 




1151 


2433 


7640 




Si?A 


CLA 


1152 


24 34 


5252 




JMP 


JUDGE 


1153 


24 35 


2023 




ISZ 


SAOR 


1154 


2436 


7350 




CLA 


CLL CMA RAR 


1155 


2437 


0423 




AND 


I SADR 


1156 


24 40 


70 40 




CMA 




1157 


2441 


1041 




TAO 


TEM1A*1 


1160 


24 42 


70 40 




CMA 




1161 


2443 


7640 




SZA 


CLA 


1162 


2444 


5252 




JMP 


JUDGE 


1163 


2445 


2023 




ISH 


SADR 


1164 


24 46 


7350 




CLA 


CLL CMA RAR 


1165 


2447 


0423 




AND 


I SAOR 


1166 


24 50 


7160 




CMA 


CLL CML 


1167 


2451 


1042 




TAO 


TEM1A*2 


1170 


24 52 


76 30 


JUDGE. 


SZL 


CLA 


1171 


2453 


5270 




JMP 


REJECT 


1172 


2454 


6201 




CDF 


0 


1173 


2455 


1026 




TAD 


SCURR 


1174 


2456 


4512 




JMS 


I SDECOl 


1175 


2457 


1023 




TAO 


SADR 


1176 


24 60 


44 74 




JMS 


I MOVEl 


1177 


2461 


0040 




TEMIA 


1200 


24 62 


6211 




6211 




1201 


2463 


6211 




6211 




1202 


2464 


1416 




TAO 


I 16 


1203 


2465 


3024 




OCA 


VAL 


1204 


2466 


1023 




TAO 


SAOR 


1205 


2467 


3307 




OCA 


FOUND 


12 06 


2470 


72 00 


REJECT, 


CLA 




1207 


2471 


6201 




CDF 


0 


1210 


2472 


2026 




ISZ 


SCURR 


1211 


2473 


5213 




JMP 


NXCAND 


1212 






/ 







Q 



1213 2474 1307 

1214 24 75 74 50 

1215 Z476 5600 

1216 2477 3023 

1217 2500 7240 

1220 2501 6211 

1221 2502 3707 

1222 2503 6201 

1223 2504 4706 

1224 2505 5202 
1225 

1226 
1227 

1230 2506 2600 

1231 2507 0000 
1232 

1233 
1234 
12 35 

1236 2510 0000 

1237 2511 1154 

1240 2512 4401 

1241 2513 1153 

1242 2514 4401 

1243 2515 4470 

1244 2516 4404 

1245 2517 5710 

1246 2520 0000 

1247 2521 1012 
12 50 25 22 44 62 

1251 2523 1335 

1252 2524 4475 

1253 2525 4461 
12 54 25 26 5720 
12 55 2527 0000 

1256 2530 6041 

1257 2531 5330 

1260 2532 6046 

1261 2533 7200 

1262 2534 5727 

1263 2535 7756 
12 64 

1265 
12 66 

12 67 
1270 
1271 
1272 
1273 

1274 2536 4747 

1275 2537 2555 

1276 2540 4746 

1277 2541 2551 

1300 2542 4750 

1301 2543 4746 

13 02 25 44 2555 
1303 25 45 5501 
1304 

1305 
1306 
13 07 

1310 2546 7774 

1311 2547 7775 



PRSYMB, TAD FOUND 
SNA 

JMP I ALPHA 

OCA SAOR 
CUA CMA 
6211 

OCA I FOUND 

cor 0 

JMS I PQSANOV 

JMP SYMBUP 



POSANDVfOSANDV 

FOUND. 0 

/ 

/ 

/ 

/ 



TYCAR» 0 





TAD 


P215 




JMS 


I OECOUT 




TAO 


P212 




JMS 


1 DECOUT 




JMS 


I CHEKER 




JMS 


I CNTLPI 




JMP 


I TYCAR 


CURSKPi 


0 






TAD 


CURL IN 




JMS 


I SOPS 




TAD 


M22 




JMS 


I SKIP 




JMS 


1 EMPTYl 




JMP 


1 CURSKP 


TYPO, 


0 

TSF 






JMP 


.-I 




TLS 






CLA 






JMP 


1 TYPO 


M22i 


-22 




TEMP A«TY CAR 





XCHAIN, JMS I OXWRIT 
XPSEU 

JMS I OXREAO 
XINIT 

JMS 1 XPP 
JMS I OXREAO 
XPSEU 

JMP I MAINI 

/ 

/ 
/ 
/ 

OXREAOi 7774 
OXWRIT, 7775 



1312 2550 5000 XPP, XXXX 

1313 2551 0100 XINIT, OULUNIT 

1314 2552 0012 12 

1315 2553 0024 BCHAIN 

1316 2554 0001 1 

1317 / 

1320 / 

1321 2555 0100 XPSEU, DIAL UN IT 

1322 2556 0012 12 

1323 2557 0025 SCRATCH 

1324 25 60 0001 1 

1325 / 

1326 / 

1327 / 

1330 / 

1331 / 

1332 / 

1333 / 
13 34 / 
1335 / 
13 36 / 
1337 / 

1340 2561 0000 SEMITX» 0 

13 41 25 62 13 75 TAD XM13 

1342 2563 7450 SNA 

1343 2564 5367 JMP ,*3 

1344 2565 1376 TAD XP46 

1345 2566 5761 JMP I SEMITX 

1346 2567 1373 TAD SEMFOC /REPLACE LINE BOPPER BY A NOP 

1347 2570 3774 OCA I SEMPTF 

1350 2571 1376 TAD XP46 

1351 2572 5761 JMP I SEMITX 

1352 / 

1353 / 

1354 / 

1355 2573 7000 SEMrOC, NOP 

1356 2574 1707 SEMPTF, JBHSTR /POINTER TO THE ISZ, 

1357 2575 7765 XM13, -13 

1360 25 76 0046 XP46, 46 

1361 / 

1362 / 

1363 / 
13 64 / 

1365 / 

1366 / 

1367 EJECT 



1370 






/PDP-i2 


ASSEMBLER PAGE 


1371 






/OUTPUT 


A SYMBOL ANO I 


1372 






«2600 




1373 


2600 


0000 


OSANOV, 


0 


1374 




4213 




JMS OSYM 


1375 


2602 


1175 




TAD T8C0NT 


1376 


2603 


1302 




TAD M7 


1377 


2604 


4475 




JMS I SKIP 


14 00 


2605 


4624 




JMS I LINK8 


1401 


2606 


1024 




TAD VAL 


1402 


2607 


4261 




JMS OPS 


1403 


2610 


4S»00 




JMS I TYCARI 


1404 


2611 


44 04 


JMS I CNTLPI 


1405 


2612 


5600 




JMP I OSANDV 


1406 


2613 


0000 


OSYHi 


0 


1407 


2614 


3175 




OCA TBCONT 


1410 


2615 


10 40 




TAD TEMIA 


1411 


2616 


4225 




JMS OX 


1412 


2617 


1041 




TAD TEM1A*1 


1413 


2620 


4225 




JMS OX 


1414 


2621 


1042 




TAD TEM1A*2 


1415 


2622 


4225 




JHS OX 


1416 


2623 


5613 




JMP I OSYM 


1417 


26 24 


3551 


LINKS, 


LI NK8A 


1420 


2625 


0000 


OX t 


0 


1421 


2626 


3053 




DCA LWC 


1422 


2627 


3052 




OCA HIC 


1423 


2630 


1053 




TAD LWC 


1424 


26 3l 


74 50 




SNA 


14 25 


26 32 






JMP I OSYM 


1426 


2633 


1125 




TAD M45 


1427 


2634 


7510 




SP A 


1430 


2635 


5240 




JMP DV3 


1431 


26 36 


2052 




IS2 HIC 


1432 


2637 


5233 




JMP .-4 


1433 


2640 


1301 


0V3f 


TAD P45 


1434 


2641 


3053 




Ui/A uHU 


1439 


2642 


1052 




TAD HIC 


1436 


2643 


4247 




JMS UNTPAN 


1437 


2644 


1053 




TAD LWC 


1440 


2645 


4247 




JMS UNTRAN 


1441 


2646 


5625 




JMP I OX 


1442 


2647 


00 00 


UNTRAN# 


0 


1443 


2650 


7450 




SNA 


1444 


2651 


5613 




JMP 1 OSYM 


1445 


2652 


1123 




TAD M33 


1446 


2653 


7510 




SPA 


1447 


2654 


1303 




TAD P53 


1450 


2655 


1304 




TAD P260 


4 A m 

1^91 


26 56 


44 01 




JMS I DECOUT 


1452 


2657 


2175 




ISH TBCONT 


1453 


2660 


5647 




JMP I UNTRAN 


1454 






/OCTAL 


PRINT SUBROUTir 


1455 


2661 


00 00 


OPS, 


0 


14 56 


2662 


3213 




OCA OSYM 


1457 


2663 


1135 




TAD M4 


1460 


2664 


3175 




DCA TBCONT 


1461 


2665 


1213 




- TAD OSYM 


1462 


2666 


70 06 




RTL 


1463 


2667 


70 04 




RAL 


1464 


2670 


3213 




OCA OSYM 


14 65 


2671 


1213 




TAO OSYM 


1466 


2672 


7004 




RAL 



/OUTPUT SYMBOL 



/OUTPUT TAB 



/OUTPUT NUMBER 



0 I 
^v^Uv... d\ 



' 5F 



f 4r^ -J~ 



146^ 


2673 


0157 




AND P7 


1470 


2674 


1304 




TAD P260 


1471 


26 75 


44 01 




JMS I DECOUT 


1472 


26 76 


2175 




IS2 TBCONT 


1473 


2677 


5265 




JMP OPS+4 


1474 


2700 


5661 




JHP I OPS 


1475 


2701 


0045 


P45, 


45 


14 76 


27 02 


7771 


M7. 


-7 


1477 


2703 


0053 


P53, 


53 


1500 


27 04 


0260 


P260, 


26 0 


15 81 


27 05 


44 77 


FLOUP, 


JMS I EXPRl 


1502 


2706 


1037 




TAD MODE 


1503 


2707 


77 00 


SMA CLA 




1504 


2710 


5314 


JMP FORT 


1505 


2711 


1020 




TAD ANY 


1506 


2712 


7640 




SZA CLA 


1507 


2713 


5317 




JMP FIELOM 


1510 


77 i A 

t / i*» 




FDRT, 


JMS I PASSEK 


1511 


2715 


44 66 




JMS I CURSKA 


1512 


2716 


5501 




JMP 1 MAINI 


1513 


2717 


1033 


FIELOM, 


TAD EVAL 


1514 


2720 


7710 




SPA CLA 


1515 


2721 


5314 




JMP FORT 


1516 


2722 


73 44 




MTWO 


1517 


27 23 


1033 




TAD EVAL 


1520 


2724 


7700 




SMA CLA 


1521 


27 25 


5314 




JMP FORT 


1522 


2726 


1033 




TAD EVAL 


1523 


2727 


3036 




DCA FLOWD 


1524 


2730 


5314 




JMP FORT 


1525 






LISTA". 




1526 








EJECT 



1527 /PDP-12 ASSEMBLER PAGE 12 .^-^ c^aL,^^^:! <i - 



1531 3000 



, 2661 OPS - i ( ^4^1^- 

1532 3001 0000 PUNONEi 0 V,. | i^' 

1533 3002 S601 JMP I PUNONE /NOP FOR PASS 2 

1534 3003 1030 TAD AAOR 

1535 3004 0155 AND P7400 

1536 3005 7106 CLL I 

1537 3006 7006 RTL 

1540 3007 7004 RAL 

1541 3010 1176 TAD BINTAB 

1542 3011 3010 OCA BINPTR 

1543 3012 1036 TAD FLDWD 

1544 3013 7650 SNA ClA 

1545 3014 5220 JMP BINCK 

1546 3015 1010 TAD BINPTR 

1547 3016 1300 TAD P20 

1550 3017 3010 OCA BINPTR 

1551 3020 1010 BINCK, TAD BINPTR 

1552 3021 7041 CI A 

1553 3022 1011 TAD BINBLK 

1554 3023 7640 SZA CLA 

f,56 «7? jSI 5 '"SETINU /SET BITS NOWNIN HEADER BUOCK 

1557 3026 1030 TAD AAOR 

1560 3027 0277 AND P377 

1561 3030 1142 TAD P5000 

1562 3031 3140 OCA LOWTMP 

1563 3032 1033 TAD EVAL 

1564 3033 3540 OCA I LOMTNP 

1565 3034 1003 TAO LISTHD 

1566 3035 7710 SPA CLA 

1567 3036 5601 JMP I PUNONE 

1570 3037 1167 TAD ERRCNT 

1571 3040 7640 SZA CLA 

1572 3041 5246 JMP NONER 

1573 3042 1012 ABN0P1» TAD CURL IN 
1574 



3043 4600 A8N0P2i JM S I PUNONE -1 

1575 3044 1301 ABN0P3, TAO M6 

1576 3045 4475 ABN0P4» JMS I SKIP 

1577 3046 1037 NONER* TAO MODE 

1600 3047 7700 SNA CLA 

1601 3050 5262 JMP LNKA 

1602 3051 1030 TAO AAOR 

1603 3052 4600 AADRL* JMS I PUNONC-1 

1604 3053 7344 MTWO 

1605 3054 44 75 JMS I SKIP 

1606 3055 1033 TAO EVAL 

1607 3056 4600 JMS I PUNONE *1 

1610 3057 73 44 MTWO 

1611 3060 4475 JMS I SKIP 

1612 3061 5601 JMP I PUNONE 

1613 3062 1030 LNKA, TAD AADR 

1614 3063 0136 AND P6000 

1615 3064 7041 CIA 

1616 3065 1046 TAD ABANK 

1617 3066 7650 SNA CLA 

1620 3067 5273 JMP SAMES 

1621 3070 1030 TAO AAOR 

1622 3071 0131 AND P3777 

1623 3072 5252 JMP AADRL 

1624 3073 1030 SAMES* TAD AADR 

1625 3074 0144 AND P1777 



1626 


3075 


5252 


1627 


3076 


3616 


1630 


3077 


0377 


1631 


3100 


0020 


1632 


3101 


7772 


1633 






1634 






16 35 






16 36 






1637 






1640 






1641 






1642 






1643 






1644 






1645 






1646 






1647 







JMP AADRL 
NOTBLl, NOTBLK 
P377, 377 
P20, 20 
M6, -6 

SYMB ur», 



EJECT 



p 



1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1660 

1661 

1662 

1663 

16 64 

1665 

1666 

1667 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1700 

1701 

1702 

1703 

1704 

1705 

1706 

17 07 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1740 

1741 

1742 

1743 

1744 

1745 

1746 



/PDP-12 ASSEMBLER PAGE 13 
«3200 

/ 
/ 



3200 3271 



3201 

3202 

3203 

3204 

3205 

3206 

32 07 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3220 

3221 

3222 

3223 

3224 

3225 

32 26 

3227 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
32 50 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3260 
3261 
3262 
32 63 
32 64 
3265 
32 66 
3267 
3270 



/ 

ERROR* 



1200 
3237 
44 65 
1167 
7640 
4500 
1012 
4462 
7344 
44 75 
1637 
0160 
1143 
4401 
1637 
7012 
7012 
7012 
0160 
1143 
4401 
7344 
4475 
2167 
7000 
4465 
7410 
4900 
5601 

0000 
2317 
1332 
0000 
7200 
3050 
4641 
1050 
7650 
56 42 
4670 
7610 
5262 
3024 
4667 
20 00 
7307 
4640 
5642 
1021 
1136 
7640 
5642 
52 57 
2000 
0266 



TABIE 



TAD ,"2 
OCA UNREF-1 
JMS I PASSEK 
TAO ERRCNT 
SZA CLA 

JMS I TYCARI 
TAO CURUIN 
JMS I SOPS 
MTWO 

JMS I SKIP 

TAD 1 UNREF-1 

AND P77 

TAD P300 

JMS I OECOUT 

TAD I UNREF'l 

RTR 

RTR 

RTR 

AND P77 
TAO P300 
JMS I OECOUT 
HTHO 

JMS 1 SKIP 
ISZ ERRCNT 
NOP 



I PASSEK 
I TYCARI 



JMS 
SKP 
JMS 

JMP 1 ERROR 



UNREFi UNDERR 

AAS 
GETASY, 0 



/CHECK FOR LISTING AND PASS2, 



CKUNi 



ENTSli 
SEARli 



CLA 

DCA IN 

JMS I GETASY-1 

TAO IN 
SNA CLA 
JMP I GETASY 
JMS I SEARl 
SKP CLA 
JMP CKUN 
OCA VAL 
JMS 1 ENTSl 
USYMB 

CLA CLL UC RTL /4 

JMS I GETASY-2 

JMP I GETASY 

TAO TYPE 

TAO P6 000 

SHA CLA 

JMP 1 GETASY 

JMP CKUN-3 

ENTS 

SEARCH 



/FOUND 



/US 



1747 






1750 


32 71 


0511 


1751 


3272 


2211 


17 52 


3273 


0411 


1753 


3274 


0311 


1754 


3275 


2325 


1755 


3276 


1503 


1756 


3277 


1003 


1757 


3300 


0523 


1760 


3301 


0127 


1761 


3302 


2320 


1762 


3303 


7610 


1763 


3304 


7240 


1764 


3305 


3037 


1765 


3306 


I057 


1766 


3307 


1316 


1767 


3310 


3375 


t770 


3311 


4772 


17 71 


3312 


33 73 


1772 


3313 


4463 


1773 


3314 


4502 


1774 


3315 


55 03 


1775 


3316 


0042 


1776 


3317 


0000 


1777 


3320 


7300 


2000 


3321 


2351 


2001 


33 22 


53 40 


2002 


33 23 


1752 


2003 


3324 


0160 


2004 


3325 


3007 


2005 


3326 


2352 


2006 


3327 


2354 


2007 


3330 


5336 


2010 


3331 


1155 


2011 


3332 


3354 


2012 


33 33 


1353 


2013 


3334 


3352 


2014 


33 35 


4750 


2015 


3336 


1007 


2016 


3337 


5717 


2017 


3340 


7040 


2020 


3341 


3351 


2021 


3342 


1752 


20 22 


3343 


7012 


2023 


3344 


7012 


2024 


3345 


7012 


2025 


33 46 


0160 


2026 


3347 


5717 


2027 


3350 


4006 


2030 


33 51 


0000 


2031 


3352 


0000 


2032 


3353 


4400 


2033 


3354 


0000 


2034 


3355 


00 00 


2035 


3356 


1003 


2036 


3357 


7710 


2037 


3360 


5364 


2040 


3361 


1035 


2041 


3362 


7710 


2042 


3363 


5755 


2043 


3364 


2355 


2044 


3365 


5755 


2045 


3366 


0000 



/TABLE 
TABLEi 



UN KM 00 1 
POPS MO, 



P6321, 
SYSIN, 



RTHrT» 
LEFTHF, 



SUFI , 

WDHALF, 

PTBUFP, 

PT8UFF, 

CH RCi 

PASSER, 



OF ERROR 
0511 
2211 
0411 
0311 
2325 
1503 
1003 
0523 
0127 
2320 
CLA SKP 
CLA CMA 
OCA 
TAD 
TAD 
OCA 
JMS 

SYCRAP 
JMS I RESETl 
JHS I PAGEl 
JMP 1 B21 
O6«42»300 
0 

ClU 

wdhauf 

LEFTHF 
I PTBUFP 



I 



MESSAGES 

/IE ILLEGAL EQUALS 
/IR ILLEGAL REFERENCE 
/lO ILLEGAL REDEFINITION 
/IC ILLEGAL CHARACTER 
/US REFERENCE TO UNDEFINED SYMBOL 
/CM COMMA USED INCORRECTLY 
/CH CHAINING ERROR. 
/S£ SYSBOL TABLE EXCEEDED 
/WA WORKING AREA EXCEEDED 
/PS PUSH DOWN LIST EXCEEDED 



MODE 
MODE 
P6321 
INSYM 
SYREAD 



CLA 
ISZ 
JMP 
TAD 
AND P77 
DCA TEMP 



EQUCHK#0 



IS2 
ISH 
JMP 
TAD 
DCA 
TAO 
OCA 
JHS 
TAD 
JMP 
CMA 
DCA 
TAO 
RTR 
RTR 
RTR 
AND 
JMP 
BUFIN 
0 
0 

4400 
0 



TAO LISTMO 
SPA CLA 
JMP ,♦4 
TAD PASS 
SPA CLA 
JMP I PASSER 
1S2 PASSER 
JMP I PASSER 



PTBUFP 
CHRC 
RTHFT 
P7400 
CHRC 
PTBUFF 
PTBUFP 

1 Buri 

TEHP 
I SYSIN 

WO HALF 
I PTBUFP 



P77 

I SYSIN 



/SWAP THE CORRECT SYMBOL TABLE IN NOW 



/CLEAN UP THE SYSTEM. WE RE DONE WITH THIS ONE, 



2046 3367 2006 IS2 EQRETI 

2047 3370 4476 JMS I ERRl 

2050 3371 5766 JMP I EQUCHK 

2051 3372 7774 SYREAO. READ 

2052 / 

2053 / 
20 54 / 

2055 / 

2056 / 

2057 / 

2060 3373 0100 SYCRAPi DIALUNlT 

2061 3374 0036 36 

2062 3375 0000 INSYM, 0 

2063 3376 0001 1 

2064 / 

2065 / 

2066 / 
20 67 / 

2070 / 

2071 / 

2072 / 

2073 / 

2074 / 

2075 EJECT 



2076 






/POP -12 


ASSCMSIER 


2077 






/ 


2100 






/ 




2101 








•3400 


2102 


3400 


0000 


BIT6. 


0 


2103 


3401 


1051 




TAD ITEH 


2104 


34 02 


1013 




TAD H40 


2105 


3403 


7510 




SPA 


2106 


3404 


5225 




JMP P1T037 


2107 


3405 


1254 




TAD M20 


2110 


3406 


7510 




SPA 


2111 


3407 


5212 




JMP P40T57 


2112 


3410 


4640 




JHS J SE! 


2113 


3411 


5600 




JMP I BIT6 


2114 


3412 


1015 


P40T57, 


TAD Pll ' 


2115 


3413 


7450 




SNA 


2116 


3414 


5241 




JMP TA8A 


2117 


3415 


1256 




TAD P2 


2120 


3416 


74 50 




SNA 


2121 


3417 


5250 




JMP P367A 


2122 


3420 


1256 




TAD P2 


2123 


3421 


7450 




SNA 


2124 


34 22 


52 43 




JMP CARET 


2125 


3423 


12 57 




TAD P57 


2126 


3424 


56 00 




JMP I BIT6 


2127 


3425 


7200 


P1T037, 


CUA 


2130 


3426 


1051 




TAD ITEM 


2131 


3427 


1123 




TAO M33 


2132 


3430 


7510 




SPA 


2133 


3431 


5245 




JMP ALPHAS 


2134 


34 32 


12 62 




TAO BP 


2135 


3433 


7700 




SMA CLA 


2136 


3434 


5250 




JMP P367A 


2137 


3435 


1051 




TAD ITEM 


2140 


3436 


1260 




TAO P41 


2141 


3437 


5600 




JMP I BIT6 


2142 






/ 


2143 






/ 




2144 


3440 


2561 


SEMITZ, 


SEHITX 


2145 






/ 


2146 






/ 




2147 


3441 


1255 


TABAf 


TAD P54 


2150 


34 42 


5600 




JMP I BIT6 


2151 


34 43 


1261 


CARET, 


TAD P46 


2152 


3444 


56 00 




JMP I BIT6 


2153 


3445 


7200 


ALPHA8, 


CIA 


2154 


3446 


1051 




TAD ITEM 


2155 


3447 


5600 




JMP I 81 T6 


2156 


3450 


7325 


P367A, 


PTHREE 


2157 


3451 


4476 




JMS I ERRl 


2160 


34 52 


56 53 




JMP I 


2161 


34 53 


2040 




IDX*1 


2162 


3454 


7760 


hl20, 


-20 


2163 


3455 


00 54 


P54, 


54 


2164 


3456 


0002 


P2, 


2 


2165 


3457 


0057 


P57, 


57 


2166 


3460 


0041 


P41. 


41 


2167 


3461 


0046 


P46, 46 




2170 


3462 


7775 


BI T6M3, 


-3 


2171 


3463 


0000 


OISRET, 


0 


2172 


3464 


4500 




JMS I TYC 


2173 


3465 


1002 




TAO ERT 


2174 


3466 


7450 




SNA 



IT2 



/GIVE A CARRIAGE RETURN BEFORE THE SYMBOL TABLE 

/GET THE TOTAL NUMBER OF ERRORS 

/2ER0? 



2175 


3467 


5277 




JMP LWD 


21 76 


34 70 


71 10 




CLL RAR 


2177 


3471 


7450 




SNA 


2200 


3472 


3320 




OCA MESSS 


2201 


3473 


7004 




RAL 


22 02 


3474 


4462 




JMS I SOPS 


2203 


3475 


22 77 




isz two 


2204 


3476 


2277 




ISZ LWO 


2205 






/ 




2206 


3477 


1310 


LWDi 


TAD MESS 


2207 


3500 


7450 




SNA 


2210 


3501 


5304 




JMP LWDE 


2211 


3502 


4401 




JMS I OECOUT 


22 12 


3503 


5276 




JMP LWD-1 


2213 






f 




2214 


3504 


1322 


LW DE » 


tao pcont 


2215 


3505 


3322 




OCA PCONT 


2216 


3506 


5663 




JMP I DISRET 


2217 










22 20 










2221 






/ 




2222 






/ 




2223 






/ 




22 24 


3507 


7677 


LWOCFDi 


7677 


2225 






/ 




2226 






/ 




2227 






/ 




2230 






/ 




2231 






/ 




2232 


3510 


0316 


MESS, 


316 


2233 


3511 


0S17 




317 


2234 


3512 


0240 




240 


2235 


3513 


0305 




305 


2236 


3514 


0322 




322 


22 37 


3515 


0322 




322 


2240 


3516 


0317 




317 


2241 


3517 


0322 




322 


2242 


3520 


0323 


MESSSf 


323 


2243 


3521 


0000 




0000 


2244 






/ 




2245 






/ 




2246 






f 




22 47 






f 




22 50 






/ 




2251 


3522 


7777 


PCONTi 


7777 


2252 


3523 


0043 


P43, 


43 


2253 


3524 


0000 


PAGSET , 


> 0 


2254 


3525 


2322 




ISZ PCONT 


2255 


3526 


5341 




JMP COSA 


2256 


3527 


1135 




TAD M4 


2257 


3530 


3016 




OCA 16 


2260 


3531 


1323 




TAD P43 


2261 


3532 


1153 


TATA, 


TAD P212 


2262 


3533 


4401 




JMS I OECOUT 


2263 


3534 


1154 




TAD P215 


2264 


3535 


4401 




JMS I OECOUT 


2265 


3536 


2016 




ISZ 16 


2266 


3537 


5332 




JMP TATA 


2267 


3540 


5724 




JMP 1 PAGSET 


2270 


3541 


1322 


COSA, 


TAD PCONT 


2271 


3542 


7041 




CIA 


2272 


3543 


1127 




TAO P76 


2273 


3544 


7640 




SZA CLA 



/YEP, PRINT OUT MESSAGE WITH "NO" PREFIX 
/JUST 1 ERROR? 

/REMOVE THE FINAL S NOW 

/OUTPUT THE OCTAL NUMBER OF ERRORS 
/PUSH PAST THE "NO" PART OF THE MESSAGE 



/GET A WORD OF THE MESSAGE 
/ZERO?? 

/YEP, THATS ALL 

/OUTPUT THE LETTER 

/GET THE NEXT CHARACTER NOW 

/OVERLAYEO INSTRUCTION, 

/AND RETURN TO CALLER 

/SYSTEM WILL GIVE THE EXTRA CRLF AFTER 
/DECIDING IF THERES ANY BINARY, 



/MAGIC NUMBER FOR FORM FEED PROBLEM AT SYMBOL TABLE TIME, 



/"NO" 

/" ERRORS" 



/FINAL OPTIONAL S 
/TERMINATING ZERO WORD 



22 74 


054? 


7f 




jn r i r A &3 1 1 


2275 


3546 






CUA CHA 


22 76 


KR 47 


99 






CC f f 




R794 




!MD t DArerT 


2300 


3551 


00 00 


L I NK 8 A 


» 0 


2301 


3552 


6211 




6211 


2302 


3553 


47 67 




IMC T D 


2303 




&9ai 




A9 






i n i A 

10 l7 




TAH TVPPA 
I A U IT rt A 


2305 


07 70 


flii AA 




Aun Dl 77 7 

ANU r 1 / ' / 


2306 


tR R7 
07 7 / 


7 A RA 
7b 




SNA CLA 


eo 10 / 


35 60 


57 51 






23 10 


3561 


1014 




Tin TYPFa 




35 62 


71 06 






2312 


07 OO 


01 36 






10 


35 64 


1024 




TAD VAL 


23 14 


3565 


30 24 




OCA VAU 


2315 


35 66 


5751 




JMP I LINKSA 


2316 


35 67 


3623 


GYP, 


GETYPE 


2317 


3570 


7300 


THOU, 


CLA CLU 


2320 


3571 


1053 




TAD LWC 


2321 


3572 


7012 




RTR 


2322 


3573 


7012 




RTR 


2323 


3574 


3164 




OCA CON 


2324 


35 75 


57 76 




JMP I CIA 


23 25 


35 76 


10 55 


ClAi 


C 


2326 






/ 




2327 






/ 




2330 






/ 




2331 






/ 




2332 








EJECT 



2933 






/PDP-12 


ASSEMBLER PAGE 


2334 






/ 




2335 






f 




2336 








• 3600 


2337 






/ 




2340 


3600 


0000 


CONVRT » 


0 


2341 


36 01 


0160 




AND P7 7 


2942 


3602 


1013 




TAD M40 


2343 


3603 


7510 




SPA 


2344 


3604 


1351 




TAD P100 


2345 


36 05 


1134 




TAD P240 


23 46 


3606 


5600 




JMP I CONVRT 


2347 






/ 




2350 






/ 










/ 




2352 






/ 




2353 


3607 


0000 


UPLNi 


0 


2354 


3610 


4500 




JMS I TYCARI 


2355 


3611 


12 61 




TAD M26 


2356 


3612 


4475 




JMS I SKIP 


2357 


3613 


1262 




TAD M60A 


2360 


3614 


3173 




OCA SPCUNT 


2361 


3615 


5607 




JMP I UPLN 


2362 


3616 


0000 


NOTBUKf 


0 


2363 


3617 


1011 




TAO BINBUK 


2364 


3620 


4513 




JMS I SRITIC 


2365 


3621 


4253 




JMS SETUSE 


2366 


3622 


5616 




JMP I NOTBLK 


2367 


3623 


0000 


GETYPE. 


0 


2370 


3624 


1423 




TAO 1 SAOR 


2371 


3625 


0136 




AND P6000 


2372 


3626 


3014 




OCA TYPEA 


23 73 


36 27 


2023 




ISZ SAOR 


2374 


3630 


1423 




TAD I SAOR 


2375 


3631 


0150 




AND P4000 


23 76 


3632 


7112 




Ctt RTR 


2377 


3633 


1014 




TAO TYPEA 


2400 


3634 


9014 




OCA TYPEA 


24 01 


36 35 


2023 




nSZ SAOR 


2402 


3636 


1423 




TAD I SAOR 


2403 


3637 


7012 




/ RTR 


2404 


3640 


7010 




/ RAR 


2405 


3641 


0124 




' AND P400 


2406 


36 42 


1014 




TAO TYPEA 


2407 


3643 


3014 




DCA TYPEA 


2410 


3644 


1014 




2411 


36 45 


0136 




AND P6 000 


24 12 


3646 


30 21 




OCA TYPE 


2413 


3647 


7344 




s MTWO 


2414 


3650 


1023 




TAD SAOR 


2415 


3651 


3023 




OCA SADR 


2416 


3652 


5623 




JMP I GETYPE 


2417 


3653 


0000 


SETUSE. 


r 0 


2420 


3654 


1010 




TAD BINPTR 


24 21 


3655 


4515 




JMS I SRDl 


2422 


3656 


1010 




TAO BINPTR 


2423 


36 57 


3011 




OCA eiNBUK 


2424 


3660 


5653 




JMP I SETUSE 


2425 


3661 


7752 


M26. 


-26 


2426 


3662 


7716 


H60Af 


-62 


2427 


3663 


0000 


RESETL 


. 0 


2430 


3664 


1030 




TAO AAOR 


2431 


3665 


0136 




AND P6000 



7~ 



a 



24 32 


36 66 


3046 




DCA 


A8ANK 


2433 


3667 


5663 




JHP 


I RESETL 


2434 


3670 


0000 


GCTIN. 


0 




2435 


3671 


4467 




JMS 


I GETCHR 


2436 


3672 


3051 




DCA 


ITEM 


2437 


3673 


1035 




TAO 


PASS 


2440 


3674 


7710 


CONSKP, 


SPA 


CLA 


2441 


3675 


4471 




JMS 


I SYMtST 


2442 


36 76 


1051 




TAO 


ITEM 


24 43 


3677 


56 70 




JMP 


I GETIN 


2444 


3700 


7710 


CONYES. 


SPA 


CLA 


24 45 


3701 


1300 


COHHEN* 


TAO 


CONYES 


2446 


3702 


3274 




OCA 


CONSKP 


24 47 


3703 


42 70 




JMS 


GETIN 


2450 


3704 


1122 




TAD 


M43 


24 5i 


37 0$ 


76 40 




SZA 


CLA 


2452 


3706 


5301 




JMP 


CO MM EN 


2453 


3707 


1325 




TAD 


CONREG 


2454 


3710 


3274 




OCA 


CONSKP 


24 55 


3711 


5712 




JMP 


I 81 TT 


2456 


3712 


2047 


BITT, 


8IT 




2457 






/ 






2460 






/ 






24 61 


3713 


0000 


RANDi 


0 




2462 


3714 


0164 




AND 


CON 


2463 


3715 


3164 




OCA 


CON 


2464 


3716 


5713 




JHP 


I RAND 


2465 






/ 






2466 






/ 






2467 






/ 






2470 






/ 






2471 


3717 


1035 


CNOMS. 


TAD 


PASS 


2472 


3720 


7710 




SPA 


CLA 


2473 


37 21 


5516 




JMP 


I RETl 


2474 


3722 


5472 




JMP 


I MAINEX 


2475 






/ 






2476 






/ 






2477 






/ 






2500 


3723 


0000 


PGJS, 


0 




2501 


3724 


1003 




TAO 


LISTWD 


2502 


3725 


7710 


CONRCG. 


SPA 


CLA 


25 03 


3726 


5723 




JHP 


I PGJS 


2504 


3727 


1736 




TAD 


I PC or 


2505 


3730 


1356 




TAD 


M77 


2506 


3731 


3017 




DCA 


17 


2507 


37 32 


4500 




JMS 


I TYCARI 


2510 


3733 


2017 




IS2 


17 


2511 


3734 


5332 




JMP 


.-2 


2512 


3735 


5723 




JMP 


1 PGJS 


2513 


3736 


3522 


PCOT , 


PCONT 


2514 






/ 






2515 






/ 






2516 






/ 






2517 


37 37 


0000 


LNCKi 


0 




25 20 


3740 


2173 




IS2 


SPCUNT 


2521 


3741 


5343 




JMP 


.♦2 


2522 


3742 


4207 




JMS 


UPLN 


2523 


3743 


57 37 




JMP 


I LNCK 


2524 


3744 


0000 


SPACK, 


0 




2525 


3745 


3007 




DCA 


TEMP 


2526 


3746 


1007 




TAD 


TEMP 


25 27 


3747 


70 40 




CMA 




2530 


3750 


1173 




TAD 


SPCUNT 



/GET A CHARACTER 



0 



/SPA FOR NORMALiSKP FOR ABBREVIATED!! 



/FINAL UPPER 



/•(TEHP*1) 



2531 


3751 


7500 


P100 f 


SMA 




2532 


37 52 


72 40 




CLA CMA 




2533 


37 53 


3173 




DCA 


SPCUNT 


2534 


3754 


1007 




TAD TEMP 


2535 


3755 


5744 




JMP I SPACK 


2536 






/ 






2537 


3756 


7701 


M77, 


-77 




2540 






/ 






2541 






/ 






2542 






/ 






2543 






/ 






2544 






/ 






2545 


3757 


0000 


STOCHK f 


0 




2546 


3760 


1171 




TAO 


SNUM 


2547 


3761 


7040 




CMA 




25 50 


37 62 


10 32 




TAD 


PERM A 


2551 


3763 


7710 




SPA CLA 




2552 


3764 


5757 




JMP I 


STOCHK 


2553 


3765 


1370 




TAO 


P5 


2554 






/ 






2555 


3766 


4476 


EQUERR, 


JMS I 


ERRl 


2556 


3767 


9771 




JMP I 


EOEFIN 


2557 






/ 






2560 


3770 


0005 


P5i 


5 




2561 


3771 


1416 


EDEFIN, 


MAINSF 




2562 






/ 






2563 






/ 






2564 






/ 






2565 






/ 






2566 








EJECT 





/TOO FAR??? 



/GIVE ERROR MESSAGEt 



■0 



2567 






/ 






2570 






/ 






2571 






/ 






25 72 






/ 






2573 






/ 






2574 








/ASSEHeiCR PAG 


25 75 








•4 001 


25 76 


4001 


34 63 




D1SRE» DISRET 


2577 








•40 


82 


2600 


4002 


13 70 


FS8LK, 


1000*07 


2601 


400^ 


0000 


FSUNITi 


0 




26 02 


4004 


24 00 


AALPHA, 


ALPHA 


2603 


4005 


7774 


UTREAD* 


READ 


2604 


4006 


0000 


8UFIN» 


0 




2605 


4007 


4605 




JMS 


I LTREAO 


26 06 


4010 


4175 




eSLOCK 


26 07 


4011 


23 77 




132 


BUFINH 


2610 


4012 


5606 




JMP 


! BUFIN 


2611 


4013 


0000 


INIT, 


0 




2612 


4014 


4500 




JMS 


I TYCARI 


2613 


4015 


1202 




TAD 


FSBLK 


2614 


4016 


0374 




AND 


L777 


2615 


4017 


3377 




OCA 


BUFINE 


2616 


40 20 


1203 




TAD 


FSUNIT 


26 17 


4021 


3375 




DCA 


BBLOCK 


2620 


4022 


1241 




TAD 


P2270 


26 21 


4023 


3010 




DCA 


BINPTR 


2622 


4024 


4643 




JMS 


I TOUSE 


2623 


4025 


1155 




TAD 


P7400 


26 24 


4026 


3645 




DCA 


I CHO 


2625 


4027 


3642 




DCA 


I WDH 


2626 


4030 


1246 




TAD 


P4400 


26 27 


4031 


36 47 




DCA 


I PT8 


2630 


40 32 


4206 




JMS 


BUFIN 


2631 


40 33 


30 37 




DCA 


MODE 


2632 


40 34 


46 05 




JMS 


I LTREAO 


2633 


4035 


4170 




LTAB 


2634 


4036 


7240 




CLA 


CM A 


2635 


4037 


3012 




DCA 


CURLIN 


2636 


4040 


5613 




JMP 


1 INIT 


2637 


40 41 


2400 


P2270, 


20 00*07* 10 


2640 


4042 


3351 


WDH, 


WO HALF 


2641 


40 43 


3653 


TOUSE. 


SETUSE 


2642 


4044 


4337 


USES, 


USEDNO 


2643 


4045 


3354 


CHO, 


CHRC 


2644 


4046 


4400 


P4400, 


4400 




26 45 


40 47 


3352 


PT8» 


PTBUFP 


2646 


4050 


5737 


OCHECK* 


CHECKO 


2647 


4051 


1011 


RETURN, 


TAD 


BINBLK 


2650 


4052 


4513 




JMS 


I SRITIC 


2651 


4253 


1244 




TAD 


USES 


26 52 


4054 


3016 




DCA 


16 


26 53 


4055 


1013 




TAD 


M4 0 


2654 


4056 


3017 




OCA 


17 


2655 


4057 


3644 




OCA 


I USES 


2656 


4060 


1416 




TAD 


1 16 


2657 


4061 


7710 




SPA 


CLA 


26 60 


40 62 


26 44 




ISH 


I USES 


2661 


4863 


2017 




ISH 


17 


2662 


4064 


5260 




JMP 


• «4 


2663 


4065 


4763 




JMS 


I RWRITE 


2664 


4066 


4164 




BINKDR 


2665 


4067 


4601 




JMS 


I DISRE 



/4000 IS THE JMP RET STORE IN LMODE. 



/GETS NEXT BUFFER FROM INPUT UNIT, 



/INITIALIZATION ROUTINE! CALLED AT BEGINNING OF EACH PASS, 



/SET UP POINTER. SETUSE WILL SET BINBLK 
/CALL SET USE NOW. 



/RESET TO LMODE AND READ IN SYMBOL TABLE, 



/POINTS TO THE NO-BINARYy CHECKER 

/MAIN EXIT AFTER PASS2, WRITES OUT SYMBOLS, DUMPS BUFFERS, ETC. 



9 AAA 


40 70 


4650 




JMS I 


OCHECK 


2667 












2670 












9 A 71 


40 7^ 


4604 




JMS 1 


AALPHA 


CO / C 


40 72 


46 7 4 




JMS I 


PSTS 


9 ATf T 
C070 


4073 


5517 




JMP I 


HON 


2674 


40 74 


37 23 


r 3 1 o t 


PG JS 




2675 






f 






2676 












26 77 






/ 






2700 






f 






2701 


An 7^ 


3733 


F\ 1 uD Ur 1 


DC A I 


PCOUNT 


2702 


4076 


1 7 t1 
1/01 




T AH f 
i Aw 1 


P I NP 


2703 


4077 


17 T9 




nr A T 


pn UT P 


2704 


4100 


3314 




DC A 


KLOOP 


2705 






/ 






2706 






/ 






27 07 






f 






2710 






/ 






2711 












2712 


A1 All 


7 f OO 


MnKi I T . 
ru Will 


JMS I 


MMHG Vr 


2713 


41 02 


Oft Wl 




CDF 




2714 


4103 


7000 




7000 




Cf 13 


4104 


6211 




cor 


10 


971 A 


4105 


7000 




7000 




971 7 


41 06 


10 00 




1000 






4107 


1334 




TAD 


p|_215 


97 91 


d1 1 0 
1 A IB 


4401 




JMS I 


DECOUT 


97 99 

Z7 2c 


A1 1 1 


1335 




TAD 


PL212 


9793 
(6 » ft w 


4112 


4401 




JMS I 


DE GOUT 


2724 


41 13 


4401 




JMS I 


OECDUT 


979<3 
ft ' ft 7 


4114 


44 04 


KLOOPi 


JMS I 


CNTLPI 


ftf ftO 


41 15 


4541 




JMS I 


PC HE CK 


9797 
c r ft r 


4116 


1733 




TAO I 


PG OU NT 


2730 


41 1 7 


7640 




S2A CLA 




27 31 


41 20 


53l4 




JMP 


KLOOP 


2732 


41 91 

A «1 


1 oo» 




Tad 


PI 17 


2733 


4122 


6664 




1 PR 




97^^ 


4123 


0000 








2735 


41 94 


20 00 








2736 


41 9% 
^1 ft-? 


^ wftO 




jms 


• -2 


97 H7 
<f Of 


4126 


6212 




GIF 


10 


27 40 


41 97 


57 30 




JMP I 


.♦1 


27 41 


41 "xn 


77 77 


PI 17 . 


7777 




27 42 












2743 












2744 


41 "tl 


B799 


PI MP . 


INP 




2745 


41 "^9 
71 Jft 


07 05 


pnuTP . 

rUU 1 r f 


OUTP 




2746 


41 33 


0760 


PCOUNT 1 


COUNT 




2747 


4134 


0215 


PL215, 


215 




27 50 


4135 


0212 


PL212. 


212 




2751 


4136 


7200 


MMMOVEi 


7200 




2752 






/ 






2753 






/ 






2754 






/ 






2755 


4137 


1030 


NO Si 


TAO AADR 


2756 


4140 


0131 




AND P3777 


27 57 


4141 


53 47 




JMP POLK 


27 60 


4142 


2020 


PERI 00 i 


- IS2 ANY 




27 61 


4143 


1037 




TAD mode: 


2762 


4144 


7700 




SMA CLA 




27 63 


4145 


5352 




JMP LINKOT 


2764 


4146 


1030 




TAO AADR 



/CHECK FOR NO BINARY, ALSO GIVE CARRIAGE 
/RETURN AFTER ERROS MESSAGE. MUST GO 
/AFTER GALL TO DISRET 



/2ER0 THE COUNTER NOW 

/POSITION THE INPUT POINTER TO PATCH 

/THE OUTPUT POINTER 

/RESET C.R, CHECKER AFTER C,R» ABORT 



/GIVE AN EXTRA C.R,L,F FOR GOOD MESSURE 



/GIVE A NULL CHARACTER IN CASE OF TAPE LIST OPTION 
/CHECK FOR A C.R, TO TERMINATE THE OUTPUT 



/WAIT UNTIL THE BUFFER IS EMPTY, 



/WAIT FOR LPR TO TAPE EFFECT 



27 65 


41 47 


4434 


Pni u . 




Of 

£ I 00 


Al C\0l 


45 04 






07 A? 
C ' 0 / 


41 51 


55 03 




JMr 1 Del 


27 70 




1030 


L I N K D T » 


T A n A A no 

i A U A A 


9771 


4153 


0136 




AN u ro BloiS 


2772 




7n di 




CIA 


27 73 


4155 


1046 




TAn AQAKiV 


2774 








SZA CLA 


27 75 


41 97 


53 37 






cf 1 0 


41 60 






TAn A A no 

i A U AA UK 




4161 


014 4 




A wn P 1 77 7 


30 00 


41 62 


53 47 




iM P pn t K 


3001 






f 




3002 


4163 


7775 


RWR I TE » 




3003 






/ 






41 64 


A1 1 1 
vx Xl 


Q r MurtD . 


n r 1 1 at ma dv 
U 1 ALo 1 NA ni 


3005 


4165 


0010 




10 


30 06 


4166 


0057 




07 +5 7»37 fl 


30 07 


4167 


0001 






3010 






f 




3011 


4170 


0100 


UTAB » 


01 At UN IT 


3012 


4171 


0036 




36 


3013 


4172 


0042 




06*42-300 


3014 


4173 


0002 




2 


3015 






/ 




3016 






/ 




3017 


4174 


0777 


L777, 


777 


3020 






/ 




3021 


4175 


0000 


BBlOCKf 


0 


3022 


4176 


0011 




11 


3023 


4177 


0000 


BUFIN2f 


0 


3024 


4200 


0001 




1 


3025 






/ 




3026 






/ 




3027 








EJECT 



9030 








/ASSEMBLER PAGE 


3031 






/ 




3032 






/ 




3033 






/ 




3034 






/ 




3035 








ASMIFM .-4200 


3036 








«4200 


3037 






/ 




3040 






/ 




3041 


4201 


0000 


SWRC* 


0 


3042 


4202 


1305 




TAD SM370 


3043 


4203 


0304 




AND SL777 


3044 


4204 


3317 




OCA SMOUT 


3043 


4205 


4610 




JMS I WWRITE 


30 46 


4206 


4315 




SIT 


30 47 


4207 


5601 




JMP I SURC 


9050 






/ 




3051 


4210 


7775 


WWRITE f 


MR ITE 


3052 


4211 


0000 


RSUB» 


0 


3053 


4212 


32 27 




OCA SOHEU 


30 54 


4213 


1164 




TAD CON 


3055 


4214 


3232 




OCA SU8C0N 


3056 


4215 


1037 




TAD MODE 


3057 


4216 


7700 




SMA CLA 


3060 


4217 


5225 




JMP LNKSUB 


3061 


42 20 


12 27 




TAD SOMEW 


3062 


4221 


7041 




CIA 


30 63 


4222 


1164 




TAD CON 


3064 


4223 


3164 


RSUBRTf 


OCA CON 


3065 


4224 


5611 




JMP I RSUB 


3066 


4225 


6141 


LNKSUBi 


LINC 


3067 








LMOOE 


3070 


0226 


1020 




UDA I 


3071 


02 27 


0000 




0 


3072 


0230 


0017 




COM 


3073 


02 31 


1120 




ADA I 


3074 


0232 


0000 


SUBCONi 


0 


3079 


0293 


0002 




MSG 2 


3076 








RHODE 


3077 


4234 


5223 




JMP RSU8RT 


3100 


4235 


0000 


RADDi 


0 


3101 


42 36 


32 52 




OCA WHERE 


3102 


42 37 


1164 




TAD CON 


3103 


4240 


3254 




OCA AD DC ON 


3104 


4241 


1037 




TAD MODE 


3105 


4242 


7700 




SMA CLA 


3106 


4243 


5250 




JMP LNKAOO 


3107 


4244 


1252 




TAD WHERE 


3110 


4245 


1164 




TAD CON 


3111 


4246 


3164 


RAODRTi 


> OCA CON 


3112 


4247 


5635 




JMP 1 RADD 


3113 


4250 


6141 


LNKADDi 


1 LINC 


3114 








LMOOE 


3115 


02 51 


1020 




LDA I 


3116 


0252 


0000 


WHERE » 


0 


3117 


0253 


1120 




ADA I 


3120 


0254 


0000 


ADDCONi 


1 0 


3121 


0255 


0002 




MSC 2 


3122 








PMODE 


3123 


4256 


5246 




JMP RADDRT 


3124 






/ 




3125 






/ 




3126 






/ 





/r 



C 



C ) 



PSEUDO OP SETTER AND PAGER 



3127 






/ 






3130 






/ 




GIVEN PS 


3131 






/ROUTINE PAGES IN PSEUDO 


3132 






/FOR 8K 


» PSNOPS ARE MAO 


3133 






/ 






3134 


4257 


2273 


PSUD07, 


ISZ 


OPl 


3135 


4260 


2273 


PSUD06, 


IS2 


OPl 


3136 


4261 


2273 


PSUD05. 


ISZ 


OPl 


3137 


4262 


2273 


PSU004, 


ISZ 


OPl 


31 40 


4263 


2273 


PSUD03, 


ISH 


OPl 


3141 


4264 


2273 


PSUD02 , 


ISZ 


OPl 


3142 


4265 


7300 


PSUDOl, 


CL A 


CLL 


3143 


4266 


12 73 




TAD 


OPl 


31 44 


42 67 


4674 




JMS 


I PPSEUOO 


3145 


4270 


3201 


PATTER. 


OCA 


PSRET 


3146 


4271 


3273 




OCA 


OPl 


3147 


4272 


5601 




JMP 


1 PSRET 


3150 


4273 


00 00 


OPl, 


0 




3151 








PSRE 


TsSWRC 


3152 


42 74 


5410 


PPSEUOOi 




PSEUDO 


3153 


4275 


00 00 


SREADl t 


0 




3154 


4276 


1305 




TAD 


SM37 0 


3155 


4277 


0304 




AND 


SL777 


3156 


4300 


3317 




OCA 


SWOUT 


3157 


4301 


4706 




JHS 


I WREAO 


31 60 


4302 


4315 




SIT 




3161 


4303 


5675 




JMP 


I SREADl 


31 62 






/ 






3163 


4304 


0777 


SL777, 


777 




3164 


4305 


7410 


SH370. 


-370 




3165 






/ 






3166 


4306 


7774 


WREAO, 


READ 




31 67 


4307 


0000 


P0PUP1» 


0 




3170 


4310 


7240 




CLA 


CM A 


3171 


4311 


1047 




TAD 


POINT 


31 72 


4312 


30 47 




OCA 


POINT 


3173 


4313 


1447 




TAD 


I POINT 


3174 


4314 


57 07 




JMP 


I POPUPl 


3175 






/ 






3176 


4315 


0111 


SIT, 


DIALBINARY 


3177 


4316 


0012 




12 




3200 


4317 


0000 


SWOUT, 


0 




3201 


4320 


0001 




1 




3202 






/ 






32 03 






/ 






3204 






/ 






3205 






/ 






3206 






/ 






3207 






/ 






3210 






/ 






3211 


4321 


00 00 


UB IT S , 


0 




3212 


4322 


1011 




TAD 


8IN8LK 


3213 


4323 


1330 




TAD 


FACTOR 


3214 


4324 


30 07 




OCA 


TEMP 


3215 


4325 


72 40 




CLA 


CMA 


3216 


4326 


3407 




OCA 


I TEMP 


3217 


4327 


5721 




JMP 


I UBITS 


3220 






/ 






3221 






/ 






3222 


4330 


1750 


FACTOR* 


8LKUSE»2000-D7 


3223 






/ 






3224 






/ 






3225 






/ 







THROUGH ISZ CHAIN. THIS SETS OPl TO PSEUDO NUMBER. 
50R WITH NUMBER IN AC, PROCESSOR DOES THE REST. 
Si AND PPSEUDO IS CHANGED, 



/PSEUDO ♦ CORRECT ORIGIN 
/SUBTRACT OFF THE EXTRANEOUS CRAP 



/PUT LAST ENTRY IN PUSH 



/THIS ROUTINE SETS THE "IN USE" BITS IN THE HEADER BLOCK 
/GET THE IN USE aOCK POINTER 
/CONVERT TO AN ABSOLUTE MEMORY ADDRESS 
/STORE AWAY NOW 

/SET THE HEADER BLOCK BITS ALL ONE NOW 
/IN THEY GO 

/RETURN TO THE CALLER. ALL IS WELL 



/CORE HEADER BLOCK MAPPER, 



3226 / 

3227 / 

3230 / 

3231 / 

3232 / 

3233 / 

3234 / 

3235 / 

3236 / 

3237 / 

3240 / 

3241 / 
32 42 / 

3243 4331 0100 VSAVCt OIAUUNIT 

3244 4332 0015 15 
3243 4333 0023 SCRATCH 

3246 4334 0001 1 

3247 / 

3250 / 

3251 / 
32 52 / 

3253 / 

3254 / 

3255 / 

3256 / 

3257 / 

3260 / 

3261 / 

3262 / 

3263 / 

3264 / 

3265 / 

3266 / 

3267 / 

3270 / 

3271 / 
32 72 / 

3273 / 

3274 / 

3275 / 

3276 •4337 

3277 4337 0000 USEDNO> 0 

3300 •4340 

3301 BLKUSE'. 

3302 4340 0000 0 

3303 4341 0000 0 

3304 4342 0000 0 

3305 4343 0000 0 

3306 4344 0000 0 

3307 4345 0000 0 

3310 4346 0000 0 

3311 4347 0000 0 

3312 4350 0000 0 

3313 4351 0000 0 



3314 4332 0000 0 

3315 4353 0000 0 

3316 4354 0000 0 

3317 4355 0000 0 

3320 4356 0000 0 

3321 4357 0000 0 

3322 4360 0000 0 

3323 4361 0000 0 

3324 4362 0000 0 



/THE ACTUAL DIAL AREA 
/LOCATIONS 6400-6777 
/A SCRATCH AREA ON THE TAPE 
/I BLOCK IN OR OUT, 



3325 
3326 
3327 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3350 
3351 
3352 
3353 
3354 
3355 



4363 
4364 
4365 
4366 
4367 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 



0000 0 

0000 0 



0000 0 
0000 0 



0000 0 



EJECT 



3356 
33 57 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3370 
33 71 
3372 
3373 
3374 
33 75 
3376 
3377 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3410 
3411 
3412 
3413 
3414 
3415 
3416 



END OF ASSEMTWO, FETCH ASSE:M3, 



CHAIN "ASSEM3" 



0000 »20 

0001 PMODE 

0002 / 

0003 / 

0004 / 
00 05 / 

0006 / 

0007 / 

0010 / 

0011 / BEGINNING OF ASSEMTHREE 

0012 / 

0013 / 

0014 / 

0015 / 

0016 / 

0017 / 

0020 / 

0021 / 

0022 / 

0023 / 

0024 / 

0025 / 
00 26 / 
0027 / 

0030 / 

0031 / 

0032 EJECT 



0033 






/ H 


A I N 


I N I T 


0034 






/ 






0035 






/ 






0036 






/ 






00 37 






/ 






0040 






/ 






00 41 






/ 






0042 








»5000 




00 43 


30 00 


72 00 


BEGNLI » 


CtA 




00 4 4 


5001 


7410 




SKP 




0045 


5002 


7240 


BEGN AS 1 


CtA CM A 




0046 


5003 


3003 




OCA 


LI ST WO 


0047 


5004 


1621 




TAD I 


P4775 


0050 


5005 


3620 




OCA I 


PJSTART 


00 51 


50 06 


16 22 




TAO I 


P4776 


0052 


5007 


3617 




OCA 1 


PJEND 


0053 


5010 


1003 




TAO 


LI ST WO 


0054 


5011 


7650 




SNA CLA 




00 55 


5012 


5216 




JMP 


,+ 4 


0056 


50 13 


1214 




TAD 


. + 1 


0057 


5014 


7000 


JBNOPi 


NOP 




0060 


5015 


3637 




OCA I 


PJNOP 


0061 


5016 


5240 




JMP 


PJNOP*! 


00 62 


50 17 


17 34 


PJEN0» 


JENO 




0063 


5020 


1733 


PJST AR T 1 




JSTART 


00 64 


5021 


4775 


P4775, 


4775 




0065 


5022 


47 76 


P4776, 


4776 




00 66 


50 23 


47 74 


P4 77 4 , 


47 74 




0067 


5024 


3042 


8AN0P1 t 


ABNOPl 




0070 


5025 


3043 


BAN0P2 t 


ABN0P2 




00 71 


5026 


3044 


BAN0P3 I 


A8N0P3 




00 72 


50 27 


30 45 


8AN0P4 , 


ABNQP4 




00 73 


50 30 


3700 


BAN0P5 / 


CONYES 




00 74 


50 31 


7610 


BANDO» 


SKP CLA 




0075 


5032 


1374 


BLTAO» 


1200+M7TWa -ENTS 


0076 


5033 


21 07 


BLTAOl 1 


NOTABl 




00 77 


50 34 


21 24 


BLTAD2 » 


N0TAB2 




0100 


5035 


77 70 


BLM10, 


-10 




01 01 


50 36 


25 35 


8L PM 22 , 


M2 2 




0102 


5037 


17 30 


PJNOPi 


JNOP 




0103 


5040 


2623 




ISH I 


P4 774 


0104 


5041 


5262 




JMP 


LISREG 


01 05 


50 42 


1214 




TAD 


J8 NOP 


0106 


5043 


3624 




OCA I 


BANOPl 


01 07 


50 44 


1214 




TAD 


JBNOP 


0110 


50 45 


3625 




OCA I 


BAN0P2 


0111 


5046 


1214 




TAD 


JBNOP 


0112 


50 47 


3626 




OCA 1 


BAN0P3 


0113 


5050 


1214 




TAD 


JBNOP 


0114 


505 1 






OCA I 


BAN0P4 


0115 


5052 


12 31 




TAD 


BANOO 


0116 


5053 


3630 




OCA I 


BAN0P5 


0117 


50 54 


12 32 




TAO 


8LTA0 


0120 


5055 


3633 




OCA I 


BLTAOl 


0121 


5056 


1232 




TAO 


BLTAO 


0122 


5057 


3634 




OCA I 


BLTA02 


0123 


50 60 


12 35 




TAD 


8LM10 


0124 


5061 


3636 




OCA I 


BLPM22 


0125 


5?062 


1473 


LI SREG, 


TAO 1 


INAS 


0126 


5063 


3472 




OCA I 


MAiNEX 


0127 


5064 


6141 




LINC 




0130 








UMOOE 




0131 


1065 


0641 




UDF 


1 



I A L I Z A T I 0 N 



0 F 



THE ASSEMBLER 



/ENTRY IF LIST IS DESIRED. 

/ENTRY IF JUST ASSEMBLY, 

/SAVE LIST STATUS CONDITION, 

/4775 CONTAINS STARTING LINE NUM. OF LISTING 

/4776 CONTAINS ENDING LINE NUM , STASH IT AWAY PERMANENTLY, 



/IF NO LIST THEN FIX JBTEST SO IT CAN NEVER LIST OUT. 



/4774=7777 IF QUICK LIST. 
/NO QUICK LIST, 

/CHANGE LIST ROUTINE FOR OL BY ALL FOLLOWING CRAP. 



/INITILIZE TO PASSl. 
/SET UP PRINTER CHECK 



0132 


1066 


1020 




LOA 1 




0133 


1067 


5731 




TYPO+3202 


0134 


1070 


1040 




ST A 




0135 


1071 


2530 




TYPO+1 




0136 


1072 


1020 




LDA I 




0137 


1073 


624 4 




lptest 




0140 


1074 


1040 




sta 




0141 


1075 


2531 




TYPO+2 




0142 


1076 


0643 




LDP 


3 


0143 


1077 


1000 




LOA 




0144 


1100 


07 77 




77 7 




0145 


1101 


4003 




stc 


FSUNITi 


0146 


1102 


1000 




LOA 




0147 


1103 


0002 




rSBLK«1777 


0150 


1104 


1560 




BCL I 




0151 


1105 


7000 




-777 




0152 


1106 


4002 




STC 


FSBIK42 


0153 


1107 


0002 




POP 




01 54 








PMODE 




0155 


5110 


6212 




CIF 


10 


0156 


5111 


4730 




JMS I 


IMHQVE 


0157 


5112 


6211 




COF 


10 


0160 


5113 


7000 




7000 




0161 


5114 


62 01 




CDF 


0 


0162 


5115 


7000 




7000 




0163 


5116 


1000 




1000 




0164 


5117 


47 31 




JMS I 


IMREAD 


0165 


5120 


51 33 




ITABIN 




0166 


5121 


1072 




TAD 


MA INEX 


0167 


5122 


3460 




OCA I 


INITI 


0170 


5123 


1326 




TAO 


IM215 


0171 


5124 


4727 




JMS I 


IMTYPO 


0172 


5125 


5732 




JMP I 


IMINIT 


0173 






/START 


THE ASSEMBLER Gi 


01 74 






/ 






0175 






/ 






0176 






/ 






0177 


5126 


0215 


1H215, 


215 




0200 


5127 


2527 


IMTYPO t 


. TYPO 




0201 


5130 


7200 


IMHO V£ J 


> 7200 




0202 


5131 


77 74 


IMREADi 


READ 




0203 


5132 


4014 


IH IN IT 1 


1 1N1T*1 




0204 






/ 






0205 






/ 






0206 






/ 






0207 


5133 


0100 


ITABIN. 


. DIALUNIT 


0210 


5134 


0013 




13 




0211 


5135 


0026 




FUDGEl 




0212 


5136 


0002 




2 




0213 






/ 






0214 






/ 






0215 






/ 






0216 






/ 






0217 






/ 






0220 








EJECT 





/NOW CHANGING TTY ROUTINE TO CALL LINE PRINTER CHECK ROUTINE. 
/TYPE=2571*3202=5773(JMP I TYPO+2) 



/PREPARE TO MOVE DOWN THEREAD ROUTINES. 



/FAKE START OF ASSEMBLY BY PLACING 
/STARTING ADDRESS OF ASSEMBLER IN IT 
/GET A C.R. TO iNlTIALliE THE SYSTEM 
/ANO SEND IT DIRECTLY TO THE OUTPUTER 
/AND BY JUMPING TO THE SECOND LOC OF INIT 



/C,R. 



0221 
0222 
0223 
0224 
0225 
0226 
0227 
02 30 
0231 
02 32 
0233 
0234 
0235 
0236 
0237 
0240 
0241 
02 42 
0243 
0244 
0245 
0246 
0247 
0250 
02 51 
02 52 
02 53 
02 54 
0255 
0256 
0257 
0260 
02 61 
0262 
0263 
0264 
02 65 
0266 
02 67 
0270 
0271 
0272 
0273 
0274 
0275 
0276 



0313 
0314 
0315 
0316 
0317 



5400 
5401 



5402 
54 03 
5404 
5405 
5406 
5407 



/ PSEUOO OP PROCESSOR, IT REALLY IS ORIGINEO AT 

/ 5000 FOR 4K, BUT IT WOULD THEN OVERLAY THE INITIALIZATION ROUTINE. UT ASSEMBLY). 

/THUS ITS ASSEMBLED AT 7000 BUT PFUOGE MAKES THE INTERPAGE REFERENCE LOOK LIKE IT S AT 5g 
/ THE 8K VERSION IS REALLY ORIGINEO AT 7000, I GENERALLY CHANGE THE INTERPAGE 
/REFERENCES BY HANO<THERE S ABOUT 6 ON THIS PAGE ANO 3 ON THE NEXT PAGE.) 
/ALL INTERBANK REFERENCE HAVE A 
/TO THE DATA ITEMS, 

/REMEMBER, THIS IS FINE AS IS FOR •♦FUDGE4". FOR FUDGES ADD 2000 TO INTER6AGE REFERENCES, 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



1202 
4377 



4477 
1020 
7650 
5303 
1033 
5601 



•5400 



/ 
/ 
/ 
/ 
/ 
/ 
/ 

ACOUNTt 
GETVAUi 



/NEW LOCATION OF PSEUDO PROCESSOR 



MAIN PSEUOO OP PROCESSOR, PAGED IN! 



1202 

4360«VERS|ON 



/"JB" ON THE TAPEl IN CORE 
/VERSION NUMBER ON 
/A SUBROUTINE ENTRY, 
/NO. 7 

/ (CHECKS UNIT X TO SEE 

/IF PRESENT ANO IF IT IS USES UNIT 

n TO READ IN THIS PAGE 



IT S A TEMPORARY 
TAPE. IN CORE IT S 



JMS I 
TAD 

SNA CLA 

JHP 

TAD 

JMP I 



EXPRl 
ANY 

ASSNO 

EVAL 

GETVAL 



/CETVAL EVALUATES THE EXPRESION TO THE RIGHT OF A PSEUOO OP, 
/IF NO EXPRESSION THEN IT EXITS, 

/BACK TO THE MAIN ASSEMBLER WITHOUT DOING ANYTHING. 

/ 

/ 

/ 

/ 
/ 



0277 


5410 


4270 


PSEUDO, 


PAFTER 




/RETURN IF OVERLAYEO BY ITSELF, 


0300 


5411 


1214 




TAO 


PJMP 




0301 


5412 


3213 




DC A 


.♦1 




03 02 


5413 


5214 




JMP 


.♦1 


/OVERLAYED BY PSEUDO NO 


0303 


5414 


5215 


PJMP, 


JMP 


.♦1 


/MAIN TABLE POINTER 


0304 


5415 


5224 




JMP 


NASSIF 


/EVIL IF SPELLED RIGHT 


0305 


5416 


52 25 




JMP 


ZASSir 




03 06 


5417 


5226 




JMP 


MASSIF 




0307 


5420 


5353 




JMP 


SYMLOD 




0310 


5421 


>316 




JMP 


AEJECT 




0311 


5422 


$333 




JMP 


SYMSAV 




0312 


54 23 


5235 




JMP 


SKIPAS 





/ 
/ 

/END OF JUMP TABLE, PSEUOO WAS CALLED WITH PSEUDO OP NUMBER IN 
/ 



AC. 



0320 






/ 








0321 






/ 








0322 






/ 








0323 


5424 


1305 


NASS IF* 


TAD 




AMM10 


0324 


54 25 


1013 


2ASSIF, 


TAO 




H4 0 


0325 


tj426 


1320 


MASSIF, 


TAD 




L7710 


0326 


5427 


32 31 




DCA 




.♦2 


03 27 


5430 


4201 




JMS 




GETV AL 


0330 


5431 


0000 




0 






0331 


54 32 


5303 




JMP 




ASSNO 


0332 


5433 


7240 




CLA 


CMA 




0333 


54 34 


5241 




JMP 




ASSYIN 


0334 


5435 


4201 


SKIPAS* 


JMS 




GETVAL 


0335 


5436 


7041 




CIA 






0336 


5437 


7450 




SNA 






0337 


5440 


5303 




JMP 




ASSNO 


0340 


5441 


3200 


ASSY IN. 


DCA 




ACOUNT 


0341 


5442 


1051 




TAD 




ITEM 


0342 


5443 


1122 




TAO 




M43 


0343 


54 44 


7640 




SZA 


CLA 




0344 


5445 


7240 




CIA 


CMA 




0345 


5446 


1200 




TAD 




ACOUNT 


0346 


5447 


3200 




DCA 




ACOU NT 


0347 


54 50 


1312 




TAD 




PACHECK 


0350 


5451 


3711 




OCA 


I 


PSWITCH 


0351 


5452 


1306 




TAO 




aseno 


0352 


5453 


3714 




DCA 


I 


POOLLAR 


0353 


5454 


1307 




TAD 




AMAINPS 


0354 


5455 


3310 




DCA 




PMAINSA 


0355 


5456 


5657 




JMP 


I 


,♦1 


0356 


5457 


2714 


AFORT, 


FORT 




0357 


5460 


7300 


ACHECK, 


CLA 


CLL 




0360 


5461 


1051 




TAD 




ITEM 


0361 


5462 


1122 




TAO 




M4 3 


0362 


5463 


7650 




SNA 


CLA 




0363 


5464 


5267 




JMP 




ASPAST 


03 64 


54 65 


4504 




JMS 


I 


IDXl 


0365 


5466 


5261 




JMP 




.-5 


03 66 


54 67 


2200 


ASPAST, 


ISZ 




ACOUNT 


0367 


5470 


5710 




JMP 


I 


PMAINSA 


0370 


5471 


1313 


ASSRSr» 


TAD 




POOCAL 


0371 


54 72 


3711 




DCA 


1 


PSWITCH 


0372 


5473 


1315 




TAD 




PENOMS 


0373 


54 74 


3714 




OCA 


I 


POOLLAR 


0374 


5475 


1310 




TAD 




PMAI NSA 


0375 


5476 


5610 




JMP 


I 


PSEUOO 


0376 


5477 


7300 


APAENO 1 


CLA 


CLL 




03 77 


55 00 


1315 




TAO 




PENOMS 


0400 


5501 


3310 




OCA 




PMAINSA 


0401 


5502 


5271 




JMP 




ASSRST 


0402 














04 03 














0404 














0405 














0406 














0407 














0410 














0411 


5503 


1257 


ASSNO> 


TAD 




AFDRT 


04 12 


5504 


5610 




JMP 


1 


PSEUOO 


0413 














0414 














0415 














0416 















/STORE CORRECT SKP AFTER EVALUATING EXPR, 



/WRONG SKIP CONOITION. ASSEMBLE NEXT, 
/OO AN ASMSKP 1, 



/NUMBER TO BE SKKIPEO, IF 2ER0 EXIT, 

/WAS DOLLAR TERMINATOR , 
/NO, ADD 1 TO SKIP BECAUSE OF END OF THIS STATEMENT, 



/AFTER SETTING SWITHCES EXIT TO PICK UP NEXT STATEMENT. 



/WAIT FOR END OF THIS LINE. 

/NOT DONE YET. PICK UP NEXT STATEMENT TO SKIP. 



/RESET SWITCHES AND EXIT, 



/END OF MANUSCRIPT 



/GENERAL EXIT, 



0417 


55 05 


77 70 


AMM10, 


-10 






0420 


5506 


5477 


ASENO. 


APAEND 






0421 


5507 


1504 


AMAINPS, 




MAINSA 




0422 


5510 


1504 


PMAINSA. 




MAINSA 




0423 


5511 


1575 


PSWITCH 




PS INTER 




0424 


5512 


54 60 


PACHECK, 




ACHE CK 




0425 


5513 


1426 


POOCAU, 


OOCAL 






0426 


5514 


2173 


POOLtAR, 




FINE NO 




0427 


5515 


3717 


PENDHS. 


ENOMS 






0430 






/ 








0431 






/ 








04 32 






/ 








0433 






/ 








0434 


5516 


4477 


AEJECT, 


JMS I 


EXPRl 


/JUST TO SCAN TILL END OF LINE, 


0435 


5517 


4465 




JMS I 


PASSEK 


/GET THE PASS NO, 


0436 


5520 


7710 


L7710, 


SPA CLA 




/ALWAYS SKIPS BECAUSE AC =0 


04 37 


5521 


5303 




JMP 


ASSNO 


/NOT L 1ST OR NOT PASS2 


0440 


5522 


1537 




TAD I 


PM60A 


/IF LP THEN M60»-140 


0441 


5523 


1331 




TAD 


AEP62 


/SEE IF GREATER THAN 62 


04 42 


5524 


7700 




SMA 


CLA 


/IS PRINTER THERE??? 


0443 


5525 


5303 




JMP 


ASSNO 


/NOPE, LINE PRINTER ISN T THERE 


0444 


5526 


7240 




CLA CM A 




/YES. SET PACE POINTER TO EJECT, 


0445 


5527 


3732 




DCA I 


AEPONT 




0446 


5530 


5303 




JMP 


ASSNO 




0447 






/ 








04 50 






/ 








0451 


5531 


0062 


AEP62, 


62 






0452 


5532 


3522 


AEPONTp 


PCONT 






0453 






/ 








04 54 






f 








0455 ' 






/ 








0456 






/ 








0457 






/ 








04 60 






/ 








0461 


5533 


42 01 


SYMSAVi 


JMS 


GETVAL 




0462 


5534 


1035 




TAD 


PASS 




0463 


5535 


7010 




RAR 






04 64 


5536 


7620 




SNL 


CLA 




0465 


5537 


5303 




JMP 


ASSNO 


/INCORRECT PASS NO , M 


0466 


5540 


4772 




JMS I 


VOUT 


/SAVE 6400 FOR A SECOND, 


04 67 


55 41 


1027 




TAO 


SENO 


/NUMBER OF DEFINED SYMBOLS. 


0470 


5542 


3751 




OCA I 


VL6777 




0471 


5543 


4747 




JMS I 


YWRITE 




0472 


5544 


5566 




YPl 






0473 


5545 


4773 




JMS 1 


VIN 


/RESTORE 6400 NOW. 


0474 


5546 


5752 




JMP I 


PV8M0VE 




04 75 






/ 








0476 


5547 


7775 


YWRITE, 


WRITE 






04 77 


55 5 0 


77 74 


YREAD* 


READ 






0500 


5551 


6777 


VU67 77 , 


6777 






0501 


5552 


5600 


PV8M0VE 




V8M0VE 




0502 


5553 


1035 


SYMLOO, 


TAO 


PASS 




0503 


5554 


7640 




SZA CLA 






0504 


5555 


5224 




JMP 


NASSIF 


/DO NOT LOAD SYMBOLS IF PASS2 


0505 


5556 


4772 




JMS 1 


VOUT 


/PRESERVE 6400 NOW 


0^06 


5557 


4750 




JMS I 


YREAD 




0507 


5560 


5566 




YPl 






0510 


55 61 


17 51 




TAD I 


VL67 77 




0511 


5562 


3027 




OCA 


SENO 


/GET NUMBER OF SAVED SYMBOLS 


0512 


5563 


47 73 




JMS I 


VIN 


/NOW RESTORE 6400 


0513 


5564 


5765 




JMP I 


VINIT 


/NOW READ IN THE SYMBOL TABLE 


0514 


5565 


5604 


VINIT, 


VVINIT 






0515 






/ 









0516 / 

0517 / 

0520 5566 0111 YPl, DIALBINARY 

0521 5567 0015 15 

0522 5570 0077 FUDGE2 

0523 5571 0001 1 

0524 / 

0525 / 

0526 / 

0527 / 

0530 / 

0531 / 

0532 / 

0533 / 

0534 / 

0535 / 

0536 5572 0773 VOUT. VPRSRV 

0537 5573 0572 VIN, VRSTR 

0540 / 

0541 / 

0542 / 

0543 / 

0544 / 

0545 / 

0546 / 

0547 / 

0550 / 

0551 / 

0552 / 

0553 / 

0554 EJECT 



/POINTS TO THE PRESERVE ROUTINE 
/POINTS TO THE RESTORE ROUTINE 



V...... 



0555 








«5600 




0556 






/ 








RA 0101 


4607 


voriuvt # 


-JMS I 


VWRI TE 


0560 


70101 


SA-I 1 
70ll 




VT AB 




i35 61 






/ 










7055 J 


VCLE AN » 


JMP I 


VASSNO 


05 63 






/ 






0564 


?OI0O 


77i3i3 


\t A c C Kin 

V Abb NO » 


AS5N0 




ism fif\ 






/ 






0566 






/ 






0567 


5604 


4610 


VV IN IT * 


JMS I 


VREAO 


so 3 / B 




5611 




VTAB 




0571 


5606 


5202 




JMP 


VCLEAN 


0572 






/ 






05 73 






/ 






0574 






/ 






0575 


5607 


7775 


VWRITE » 


WRITE 




0576 


5610 


7774 


VR£AO» 


READ 




05 77 






/ 






0600 






/ 






0601 






/ 








5611 


vl 11 


VT A8 » 


DIALBINARY 


0603 


i«Ai 9 
30ic 


0101 on 
We 10 




20 






CAi T 


0060 




BOOUT 




06 05 


SA 1 d 
70 


0101 1 A 
101010 




16 
















06 07 












06 10 












06 11 












0612 












0613 












06 14 












06 15 












OA 1 A 
WO lO 












CIA 1 7 












nA 9fli 


RA 4 S 
70 19 




OU Tr UT r 


JMS I 


OGTVAL 




5616 


32 54 




OCA 


OPUT 


06 22 


C5A 1 7 
70 1/ 


10 35 




TAG 


PASS 


06 23 


56 20 


7640 




SHA CLA 




0624 


5621 


5725 




JMP I 


OASSNO 


06 25 


5622 


12 54 




TAD 


OPUT 


0626 


5623 


7510 




SPA 




0627 


5624 


5306 




JMP 


OBSET 




56 25 


0326 




AND 


0L17 


06 31 


56 26 


3333 




OCA 


OUNIT 


06 32 


5627 


3335 




OCA 


08L0CK 




5630 


1331 




TAO 


QL6400 


063 4 


5631 


3330 




DCA 


OLOC 


0635 


5632 


7240 




CIA CMA 




06 36 


56 33 


6141 




LINC 




0637 








LMODE 




0640 


1634 


0460 




SNS I 


0 


0641 


16 35 


0441 




SNS 


1 


0642 


1636 


0011 




CLR 




0643 


1637 


0462 




SNS I 


2 


0644 


1640 


0443 




SNS 


3 


0645 


1641 


0011 




CLR 




0646 


1642 


0464 




SNS I 


4 


0647 


1643 


0445 




SNS 


5 


0650 


1644 


0011 




CLR 




0651 


1645 


0002 




POP 




0652 








PMODE 




06 53 


5646 


7040 




CMA 





/THIS ROUTINE ALLOWS OPTIONAL TAPE OUTPUT 
/SAVE FOR A SECOND 
/GET THE PASS NUMBER 

/IS IT 1 

/NOPE, IGNORE 

/REGET THE USERS VALUE, 

/ir POSITIVE THEN OUTPUT 

/IF NEGATIVE THEN READ IN BIT TABLE 

/JUST GET THE UNIT NUMBER 

/CLEAR THE BLOCK TO 0 

/RESET THE LOCATION COUNTER TO 6400 

/WHICH IS THE BUFFER AREA 

/SET UP THE TEST TO FOLLOW 



/TEST FOR BOTH 
/SWITCHES 0 AND 1 UP 

/AND SO ON DOWN THE LINE 




0654 


56 7 


76 40 




S2 A CL A 






0655 


5650 


5725 




JM P I 


oass no 


/SWITCHES NOT UP, IGNORE REQUEST 


0656 


7071 


13 27 




Tad 


OP 0 1 NT 


/RESET DECOUT TO POINT TO HERE 


WOP / 


5652 


3001 




DC A 


nrcouT 

DC WW W < 




0660 


5653 


S7 9R 




JMP I 


ft A ssNn 

U A a ^ fM u 


/NOW RETURN TO THE USER. 


0661 














100 O4C 






/ 








06 63 






/ 








06 64 






/ 








0665 


5654 


0000 


OPUT > 


0 






0666 


5655 


74 50 




SNA 






100 0 / 


5656 


5261 




JH P 


OE ND 




\00 / V 


5657 


4267 




JMS 


OOPUT 




vo fx 


5660 


5654 




JMP I 


OPUT 




06 72 














06 73 


C^A A1 

90 01 


A9 A7 
0/ 


OENO f 


JMS 


OOPUT 


/PUT IN A 2ER0 WORD 


06 74 


56 62 


13 30 




TAD 


OL OC 


/CHOP OFF THE HIGH BITS NOW, JUST 


06 75 


56 63 


03 32 




AND 


0L377 


0676 


5664 






J l>J A 0 U A 








5665 


5654 




JH P I 


OP UT 




El / WW 


56 66 


5261 




JMP 


OENO 




w/ wx 






/ 








1X709 






f 








»/ WO 






f 








UI7 

W/ Wn 






/ 








a7 flR 


56 67 


00 jggj 


00 PU T 1 


0 






0706 


56 70 


37 30 




DC A I 


OL OC 




0707 


5671 


1330 




TAD 


OLOC 




0710 


5672 


7001 




lAC 






0711 


5673 


0332 




AND 


0L377 




0712 


56 74 


1331 




TAD 


OL64 00 




fil7 1 
»/ 10 


56 75 


33 30 




OCA 


OL OC 




07 14 


56 76 


13 30 




TAD 


OL OC 




W' 17 


56 77 


03 32 




AN D 


OL 37 7 


/CHOP OFF THE BAD BITS, 


0716 


57 00 


76 40 




S2 A CL A 






07 17 


57 01 


<>A A7 
90 0/ 




JMP I 


00 PU T 




atoct 
07<W 


(^709 
9 / Wc 


^0 W/ 






VWR I TE 




a7 91 
W / el 


5703 


5733 




OU NI T 






n7 99 


5704 


2335 




IS 2 


UD Uw Uf> 




017 9T 


5705 


5667 




JMP I 


OOPUT 




07 9A 
Wf 






f 








0725 






i 
f 








07 9 A 
W/ cO 






f 








0797 
vl CI 














0730 






f 








07*11 






/ 








07 t9 
W/ Oc 














07 

W' «3w. 


57 06 


72 00 


DBS E T > 


CL A 




/ALSO POINTS TO MOVE ROUTINE 


0734 


57 07 


46 10 




JMS I 


VREAD 


/READ IN THE OLD HEADER BLOCK 


0735 


5710 


5720 




OB IN 






0736 


5711 


4706 




JMS I 


QfiSET 


/MOVE DOWN THE HEADER BLOCK NOW 


0737 


5712 


6201 




CDF 


0 




0740 


5713 


5337 




5337 






0741 


5714 


62 01 




CDF 


0 




07 42 


5715 


43 37 




4337 






0743 


5716 


0041 




41 






0744 


5717 


5725 




JMP I 


OASSNO 


/AND RETURN TO THE USER 


0745 






/ 








0746 






/ 








0747 






/ 








0750 






/ 








0751 






/ 








0752 






/ 









0753 






/ 








0754 






f 








0755 






/ 








0756 


5720 


0111 


OBINt 


ill 






0757 


5721 


0012 




12 






0760 


5722 


0057 




447^370 






0761 


5723 


0001 




1 






0762 






/ 








0763 






/ 








0764 






/ 








07 65 






/ 








0766 






/ 








0767 






/ 








0770 






/ 








0771 






/ 








0772 






/ 








07 73 






/ 








0774 






/ 








0775 






/ 








0776 






f 








0777 






/ 








1000 






/ 








1001 


5724 


5401 


OG TV At , 


GE TV At 






1002 


5725 


5503 


OASS NO 1 


AS SNO 






1003 


5726 


0817 


0L17. 


17 






1004 


5727 


5654 


OPOINT, 


OPUT 






1005 


5730 


6400 


OL0C# 


6400 






1006 


5731 


6400 


OL6400, 


6400 






1007 


57 32 


0377 


0137 7, 


37 7 






1010 






/ 








1011 


5733 


0000 


OUNI T, 


0 






1012 


57 34 


00 15 




15 




/15=6400 FOR THE BUFFER AREA 


1013 


5735 


0000 


OB LOCK* 


0 






1014 


5736 


0001 




1 






1015 






/ 








1016 






/ 








1017 






/ 








1020 






/ 








1021 






/ 








1022 






/ 








1023 






/ 








1024 






/ 








1025 






/ 








1026 






/ 








1027 






/ 








1030 






/ 








1031 






/ 








1032 


5737 


0000 


CHECKO, 


0 




/THIS ROUTINE CHECKS FOR NO BINARY 01 


1033 


5740 


1776 




TAD I 


OCUSCS 


/GET THE NUMBER OF BLOCKS OF OUTPUT, 


1034 


5741 


7640 




SHA CUA 




/ANO THERE? 


1035 


5742 


5351 




JMP 


OCCRLF 


/YEP, JUST GIVE A C.R.L.F AND RETURN 


1036 






/ 








1037 


5743 


1353 


OCDOIT, 


TAD 


OCPNT 


/GET A CHARACTER FROM THE MESSAGER, 


10 40 


57 44 


74 50 




SNA 




/ZERO » THATS All FOLKS 


10 41 


57 45 


53 51 




JMP 


OCCRLF 


/GIVE THE LINEFEED NOW 


10 42 


5746 


44 01 




JMS I 


OECOUT 


/OUT GOES THE CHARACTER NOW 


1043 


57 47 


1J:S43 




!SH 


OC DO IT 


/BOP TO THE NEXT CHARACTER, 


1044 


5750 


53 43 




JMP 


OCOOIT 


/GO GET THE NEXT CHARACTER 


1045 






/ 








1046 


5751 


4500 


occRur, 


JMS 1 


TYCARl 


/GIVE THE CARRIGE RETURN NOW 


1047 


5752 


5737 




JMP I 


CHECKO 


/RETURN TO THE CALLER NOW 


10 50 






/ 








1051 






/ 









1052 
li53 



10 77 
1100 
1101 
1102 

1103 
1104 
1105 
1106 
1107 



11 
11 
11 
11 
11 
11 
U 
11 

1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1130 
1131 



1054 


5753 


0254 OCPNT» 


254 


/ , 


1055 


5754 


0240 


240 


/ 


1056 


5755 


0316 


316 


/N 


1057 


5756 


0317 


317 


/O 


1060 


5757 


0240 


240 


/ 


1061 


5760 


0302 


302 


/B 


1062 


5761 


0311 


311 


/I 


1063 


5762 


0316 


316 


/N 


1064 


5763 


0301 


301 


/A 


1065 


5764 


0322 


322 


/R 


1066 


5765 


0331 


331 


/Y 


1067 


5766 


0240 


240 


/ 


1070 


5767 


0317 


317 


/O 


1071 


5770 


0325 


325 


/U 


1072 


5771 


0324 


324 


/T 


1073 


5772 


0320 


320 


/P 


1074 


5773 


0325 


325 


/U 


1075 


5774 


0324 


324 


/T 


1076 


5775 


0000 


0 





5776 4337 



OCUSES, US£ONO 



/POINTS TO THE NUMBER OF BINARY BLOCKS USED. 



EJECT 



1132 






/ CINE 


PR 1 NTrR 


ROUT INT 






1 1 'K'X 






/ 










Xi, 0^ 






/ 










1135 






/ 










11 36 






f 










1137 








•6000 




/THIS 


ROUT INT [ OnKS 




60 00 


0000 


PR INT » 


0 




/SORT 


flr 1 TNT A TTY tad rUlQ: IMQ PRtMT 


1 1 At 


6001 


1151 




1 A U 


M2 15 




f 1 ( nAnlULLO Ln ANU Lr % 


1 1 d9 


6002 


7450 




sn a 




/T S IT 


\t Ann 1 Avw nt • uniM % 


X*. 


6003 


52 10 




JMP 


pprnijun 






1 i 


6004 


1154 




T A n 

' A U 


D9 1 

re i.-? 




/ N U i 


1 1 A5 


60 05 


66 61 




ls D 






/WAJi run ULLAn \»V\ AL t 


1146 


6006 


5241 




JMP 


LPBACK 




/I TMT PRINTTB DliCY R AfK QPAPT 1 TU AO 


11^/ 


010 k) / 


5640 




JMP I 


PCLP 






11 70 






/ 










1151 


6010 


1235 




.TAD 


SWl 






119c 


Aa4 4 

oBxl 


^904 




DC A 


PRlNT+1 






1153 


6012 


Xt OA 
dOBO 




OCA 


NUM 




/StT TUCHE.U K FDR LF 


4 4 

1194 


O0XO 






JMP I 


PRINT 






4 4 CR 
1199 


A0I4 A 


32 34 


LF TEST 1 


DCA 


TEMPI 






4 4 RA 


D|0 X9 


12 34 




TAD 


TEMPI 






1 i S7 
XX 9r 


6016 


1305 




TAO 


M212 






4 4 Mk 
XX DH 


6017 


76 50 




SNA CLA 








ii A1 
XXOX 


60 20 


5232 




JMP 


LFF 






1162 


6021 


1234 




TAO 


TEMPI 






4 1 A 

xxoo 


60 22 


11 51 




TAD M215 






1164 


6023 


7650 




SNA CLA 








1165 


60 24 


5233 




JMP 


LFFZ 






1166 


6025 


1236 




TAO 


SW2 




/NOT AN LF OR CR . NCH L I NF . OUTPUT LAST. 


1167 


6026 


3201 




OCA 


PRINT*1 






1170 


6027 


7240 




CLA CMA 








1171 


6030 


1306 




TAD 


NUM 






1172 


6031 


5637 




JMP I 


PCFIC 






1173 






/ 










1174 


6032 


2306 




ISi 


NUM 




/LF. BOP UP LF COUNT. 


1175 


6033 


56 00 


LFF2# 


JMP I 


PRINT 






1176 






/ 










4177 
XX ' f 






/ 










1200 






/ 










1201 


6034 


0000 


TEMPI » 


0 








4 9019 
Xc 


60 35 




S W 1 » 


JMP 


LFTEST 






4 9 Af 


OKftf O 


1 1 SI 
XX 9X 


QU 9 


TAD 


M215 






1 9 04 
Xc 0^ 






/ 
f 










4 9ac 
X£09 






/ 










4 9fllA 
XC VO 






f 










4 9a7 






/ 










IclV 






/ 










1211 






/ 










4 94 9 

xcX« 




6057 


r Ur lot 


ANLXE 








1213 


6040 


6054 


PCLP # 


ANLXC 








1214 






/ 










1215 






/ 










1216 






/ 










1217 






/ 










1220 


6041 


2700 


IPBACK» 


ISZ I 


LCOUNT 




/INCREMENT THE COUNTER BY 1 


1221 


6042 


7240 




CLA CMA 






/-I TO DECREMENT THE POINTER 


1222 


6043 


1701 




TAO I 


LOUTP 






1223 


6044 


3701 




DCA ! 


LOUTP 






1224 


6045 


1302 




TAO 


LFIRST 




/COMPARE AGAINST LOWER LIMIT 


1225 


60 46 


17 01 




TAD I 


LOUTP 






1226 


6047 


7650 




SNA CLA 








1227 


60 50 


1303 




TAO 


LB AO 




/ITS TOO FAR, COMPENSTATE TO TOP OF BUFFER 


1230 


6051 


1701 




TAO I 


LOUTP 







1231 
12 32 
1233 
1234 
1235 
1236 
1237 
1240 
12 41 
1242 
1243 
1244 
12 45 
1246 
1247 
1250 
1251 
1252 
1253 
1254 
1255 
12 56 
12 57 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1270 
1271 
1272 
1273 
1274 
1275 
1276 

12 77 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1320 
1321 
1322 

13 23 
1324 
1325 
1326 
1327 



6052 
6053 



6054 

6055 
60 56 

60 57 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6070 



6071 
6072 

6073 
6074 

6075 
6076 
6077 



6100 
6101 
6102 
6103 



6104 
6105 



6106 
6107 



3701 
5600 



6656 
7200 
56 00 

0157 
7640 
1157 
1304 
6652 
6664 
7200 
3306 
1234 
5201 



6666 
5255 

7640 
7305 
1153 
6666 
5265 



0760 
0705 
1671 
0270 



0010 
7566 



/ 
/ 
f 
/ 

/ 

ANLXC» 



/ 

ANLXE» 
M140 t 



LPRENT, 



/ 
/ 

LP08C, 

/ 



DCA I LOUTP 
JMP I PRINT 



LCF'LLB 

a A 

JMP I PRINT 



AND 

SZA CLA 

TAD 

TAD 

Lcr 

LPR 
CLA 
DCA 
TAD 
JMP 



/ 
/ 

LCOUNTi 

LOUTP, 

LriRST, 

LBAD. 

/ 

/ 

L10I 

H212» 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

NUMi 

PRINIT, 

/ 

/ 

/ 

/ 

/ 

/ 

f 

/ 



P7 



P7 
L10 



NUM 

TEMPI 

PR!NT*1 



LPRSLCB 

JMP ANLXC*! 



S2A CLA 

CLA CLL 
TAD 

LPR; LCB 
JMP 



lAC RAL 

P212 



LP RE NT 



COUNT 
OUTP 

-FIRST*! 
BAO-riRST*l-l 



10 

-212 



FIRST*. 
BAO«6400 



/DEFINE THE START OF THE BUFFE 
/AND THE END*1 



1330 / 

1331 / 

1332 / 

1333 / 



1334 








PAGE 




1335 






/ 






13 36 






/ 






1337 






/ 






1340 






/ 






1341 






/ 






1342 






/ 






1343 


6200 


1305 


UOKi 


TAO 


L17 /LP IS THERE, EJECT TO START AS, 


13 44 


6201 


6652 




LCF 


1345 


6202 


6664 




LPR 




1346 


6203 


7200 




CLA 




1347 


6204 


1311 




TAO 


M154 /SET LINE COUNTER FOR 154 COLUMNS 


1350 


6205 


3706 




OCA I 


PCI 


1351 


6206 


1706 




TAD I 


PCI 


1352 


6207 


3707 




OCA I 


PC 2 


1353 






/ 






1354 


6210 


1335 


LOK0. 


TAO 


SYMFIX 


1355 


6211 


3736 




OCA I 


SYMOVR 


13 56 






/ 






1357 


6212 


1233 


LOKl* 


TAO 


Rl /RESET TYPO TO LP OR TTY ROUTINE. 


1360 


6213 


3626 




OCA I 


PRl 


1361 


6214 


1235 




TAO 


R2 


1362 


6215 


3627 




OCA I 


PR2 


13 63 


6216 


1237 




TAO 


R3 


1364 


6217 


3630 




OCA 1 


PR3 


1365 


6220 


1241 




TAO 


R4 


1366 


6221 


3631 




OCA I 


PR 4 


1367 


6222 


1243 




TAD 


R5 


1370 


6223 


3632 




OCA I 


PR5 


1371 


6224 


1154 




TAD 


P215 


1372 


6225 


5626 




JHP I 


,♦1 


13 73 


6226 


2530 


PR1» 


TYPO+1 




1374 


6227 


2531 


PR2i 


TYPQ*2 




1375 


6230 


2532 


PR3, 


TYP0*3 




1376 


6231 


2533 


PR4, 


TYPOM 




1377 


6232 


2534 


PR5, 


TYP0*5 




1400 


6233 


4732 


Rli 


JHS I 


L0K*TYP0-TyBASE*3 


1401 


62 34 


6041 




Tsr 




1402 


6235 


7410 


R2, 


SKP 




1403 


6236 


5330 




JMP 


L0K*TYP0-TY8ASE*1 


1404 


6237 


6000 


R3, 


PRINT 




1405 


6240 


6046 




TLS 




1406 


6241 


5727 


R4, 


JMP I 


LOK*TYPO-TYBASE 


1407 


6242 


7200 




CLA 




1410 


6243 


5727 


R5. 


JMP I 


LOK^TYPO-TYBASE 


1411 






/ 






1412 






/ 






1413 


6244 


7300 


LPTESTi 


CLA CLL 




1414 


6245 


1135 




TAO 


M4 /WAIT FOR PRINTER TEST 


1415 


6246 


3313 




OCA 


PT2 


1416 


6247 


3312 




OCA 


PTl 


1417 


6250 


6652 




Lcr 




1420 


6251 


6662 




LCB 


/CLEAR BUFFER. IF LP THERE FLAG RAISES IN 


1421 


6252 


6661 


TEST, 


LSD 




1422 


6253 


7410 




SKP 




1423 


6254 


5200 




JMP 


LOK /FLAG SI UP. LP THERE. WHAT A LI 


14 24 


6255 


2312 




IS2 


PTl 


1425 


6256 


5252 




JMP 


TEST 


1426 


6257 


2313 




ISZ 


PT2 



1427 


6260 


5252 




JHP 


TEST 


1430 






/ 






1431 


6261 


1135 




TAD 


M4 


1432 


6262 


3313 




OCA 


PT2 


1433 


6263 


3312 




DCA 


PTl 


1434 


6264 


1134 




TAD 


P240 


1435 


6265 


6666 




tCBl LPR 




14 36 


6266 


7200 




CLA 




1437 


6267 


6661 


TESTC2, 


USD 




1440 


6270 


7410 




SKP 




1441 


6271 


5314 




JMP 


L0KA2 


14 42 


6272 


2312 




ISZ 


PTl 


1443 


6273 


5267 




JMP 


TESTC2 


1444 


6274 


2313 




IS2 


PT2 


1445 


6275 


5267 




JMP 


TESTC2 


14 46 






/ 






1447 


6276 


2212 




IS2 


LOKl 


1450 


6277 


2214 




ISZ 


L0K1*2 


1451 


6300 


2216 




IS2 


tOKl*4 


14 52 


6301 


2220 




ISi 


L0K1*6 


1453 


6302 


3704 




OCA 1 


CCNOP 


1454 


6303 


5212 




JMP 


tOKl 


1455 






t 






1456 


6304 


0747 


CCNOPi 


CNOP 




1457 






t 






1460 






/ 






14 61 






f 






1462 






/ 






1463 






/ 






14 64 






/ 






1465 






/ 






1466 


6305 


0017 


Li7. 


17 




1467 


6306 


1576 


PCI, 


M60 




1470 


6307 


3662 


PC2» 


M60A 




1471 


6310 


7706 


M72i 


-72 




14 72 


6311 


76 24 


M154, 


-154 




1473 


6312 


0000 


PTl. 


0 




1474 


6313 


0000 


PT2, 


0 




14 75 






/ 






1476 






/ 






1477 






/ 






1500 






/ 






1501 






/ 






1502 






/ 






1503 






/ 






1504 


6314 


7305 


L0KA2» 


CIL CLA 


lAC RAL 


15 05 


6315 


1153 




TAD 


P212 


1506 


6316 


6676 




LCriLPR 




1507 


6317 


7200 




CLA 




1510 


6320 


1310 




TAD 


M72 


1511 


6321 


3706 




DCA I 


PCI 


1512 


6322 


1310 




TAO 


M72 


1513 


6323 


3707 




OCA t 


PC 2 


1514 


6324 


1331 




TAD 


PLP08C 


1515 


6325 


3733 




DCA I 


PXLl 


1516 


6326 


1332 




TAD 


PLP08E 


1517 


6327 


3734 




OCA I 


PXL2 


1520 


6330 


5210 




JMP 


LOK0 


1521 






/ 






1522 






/ 






1523 


6331 


6071 


PL P08C# 


LP08C 




1524 


6332 


6073 


PLP08E» 


LP08E 




1525 


6333 


6040 


PXLl. 


PC LP 





/TIME HAS RUN OUT. CHANCE TO SET UT TTY MODE. 
/2AP OUT THE LPTEST ON THE BUFFERING ROUTINE 



1526 


6334 


6037 


PXL2i PCF! 


1527 


6335 


1307 


SYMFIX, TAD 


1530 


6336 


3504 


SYMOVR, LWOE 


1531 






/ 


1532 






/ 


1533 






/ 


1534 






/ 


1535 






/ 


1536 






/ 


1537 






f 


1540 






/ 


1541 






f 


1542 






f 


1543 






/ 


1544 






/ 


1545 






f 


1546 






TY8ASE«2400 


15 47 






LLB«66 54 


1550 






LCF*6652 


1551 






LS0>6661 


1552 






LCB>6662 


1553 






LPR>6664 


1554 








15 55 








1556 








1557 








1560 








1561 








1562 








1563 








1564 








15 65 








1566 








1567 








1570 








1571 






EJEC 



l.WDEFD4177*L0K 



SONE BASIC DEFINITIONS FOR THE ROUTINES 
/HAIN BASE FOR REFS, 



1572 






/ 


1573 






/ 


1574 






/ 


1575 






/ S 


1576 






/ 


1577 






/ 


1600 






/ 


1601 






/ 


16 02 






/ 


1603 






/ 


1604 






/ 


1605 






/ 


16 06 








1607 


6400 


7777 




1610 


6401 


7777 


7777 


1611 


6402 


7777 


7777 


1612 


64 03 


7777 


77 77 


1613 


6404 


7777 


7777 


1614 


64 05 


7777 


7777 


1615 


6406 


7777 


7777 


1616 


6407 


7777 


7777 


1617 


6410 


7777 


7777 


1620 


6411 


7777 


7777 


1621 


6412 


7777 


7777 


1622 


6413 


77 77 


77 77 


1623 


6414 


5143 


5143 


1624 


6415 


0336 


0336 


1625 


6416 


0000 


0000 


1626 


6417 


6021 


6021 


1627 


6420 


5123 


5123 


1638 


6421 


0336 


0336 


1631 


6422 


00 00 


0000 


1632 


6423 


6022 


6022 


16 33 


6424 


5140 


5140 


1634 


6425 


0157 


0157 


1635 


6426 


0000 


0000 


1636 


6427 


6024 


6024 


1637 


6430 


5134 


5134 


1640 


6431 


1277 


12 77 


1641 


6432 


0000 


0000 


1642 


6433 


6026 


6026 


1643 


6434 


5255 


5255 


16 44 


64 35 


0336 


0336 


1645 


6436 


0000 


0000 


1646 


6437 


6011 


6011 


1647 


6440 


5254 


5254 


1650 


6441 


0112 


0112 


1651 


6442 


0000 


0000 


1652 


64 43 


6012 


6012 


1653 


6444 


5240 


5240 


1654 


64 45 


0157 


0157 


1655 


6446 


0000 


0000 


1656 


64 47 


6014 


6014 


1657 


6450 


4170 


4170 


1660 


6451 


0336 


0336 


1661 


6452 


0000 


0000 


1662 


64 53 


6202 


6202 


1663 


6454 


4163 


4163 


1664 


64 55 


0336 


0336 


1665 


6456 


0000 


0000 


1666 


6457 


6201 


6201 


1667 


6460 


5243 


5243 


1670 


6461 


0112 


0112 



YH80L TABLE 



/CIF 



/PSF 



/per 



/PPC 



/PLS 



/RCf 



/RRB 



/RFC 



/COF 



/RIB 



1671 


6462 


0000 


0000 






1672 


6463 


6234 


6234 






16 73 


6464 


5247 


5247 




/RMF 


1674 


6465 


0336 


0336 






1675 


6466 


0000 


0000 






1676 


6467 


6244 


6244 






1677 


6470 


5243 


5243 




/RIF 


1700 


6471 


0336 


0336 






1701 


64 72 


0000 


0000 






1702 


6473 


6224 


6224 






1703 


6474 


5236 


5236 




/Ror 


1704 


6475 


0336 


0336 






1705 


6476 


0000 


0000 






1706 


6477 


6214 


6214 






1707 


6500 


5360 


5360 




/TLS 


1710 


6501 


1277 


1277 






1711 


6502 


0000 


0000 






1712 


6503 


6046 


6046 






1713 


6504 


5364 


5364 




/TPC 


1714 


6505 


0157 


0157 






1715 


6506 


0000 


0000 






1716 


6507 


6044 


6044 






1717 


6510 


5347 


5347 




/TCF 


1720 


6511 


0336 


0336 






1721 


6512 


00 00 


0000 






1722 


6513 


6042 


6042 






1723 


6514 


5367 


5367 




/TSF 


1724 


6515 


0336 


0336 






1725 


6516 


0000 


0000 






1726 


6517 


6041 


6041 






1727 


65 20 


4651 


4651 




/KRB 


1730 


6521 


0112 


0112 






1731 


6522 


0000 


0000 






1732 


6523 


6036 


6036 






1733 


6524 


46 51 


4651 




/KRS 


1734 


6525 


1277 


1277 






1739 


6526 


0000 


0000 






1736 


6527 


60 34 


6034 






17 37 


6530 


46 32 


4632 




/KCC 


1740 


6531 


0157 


0157 






1741 


6592 


0000 


0000 






1742 


6533 


6032 


6032 






17 43 


65 34 


46 52 


46 52 




/KSF 


1744 


6535 


0336 


0336 






1745 


6536 


0000 


00 00 






1^46 


6537 


6031 


6031 






1747 


65 40 


45 34 


45 34 




/lOF 


1750 


6541 


0336 


0336 






1751 


6542 


0000 


0000 






1752 


6543 


6002 


6002 






1753 


6544 


4534 


4534 




/ION 


1754 


6545 


1006 


1006 






1755 


6546 


0000 


0000 






1756 


6547 


6001 


6001 






1757 


6550 


4705 


4705 


/LINC 




17 60 


6551 


1011 


1011 






1761 


6552 


0000 


0000 






1762 


6553 


6141 


6141 






1763 


6554 


4173 


4173/ClSK 




1764 


6555 


1312 


1312 






1765 


6556 


0000 


0 






1766 


6557 


6131 


6131 






1767 


6560 


4173 


4173/CUR 





17 70 


6561 


0716 


716 


1771 


6562 


00 00 


0 


17 72 


6563 


6132 


6132 


1773 


6564 


4173 


4173 


1774 


6565 


0047 


47 


1775 


6566 


0000 


0 


1776 


6567 


6133 


6133 


nil 


6570 


4173 


4173 


20 00 


6571 


03 07 


307 


2001 


6572 


0000 


0 


2002 


6573 


6134 


6134 


2003 


6574 


4173 


4173 


2004 


6575 


1300 


1300 


2003 


6576 


0000 


0 


2006 


6577 


6135 


6135 


2007 


6600 


4173 


4173 


2010 


6601 


0160 


160 


2011 


6602 


0000 


0 


2012 


6603 


6137 


6137 


2013 


6604 


4173 


4173 


2014 


6605 


0113 


113 


2015 


6606 


00 00 


0 


2016 


6607 


6136 


6136 


2017 


6610 


4417 


4417 


2020 


6611 


0627 


0627 


20 21 


6612 


0000 


0000 


2022 


6613 


7204 


72 04 


2023 


6614 


5323 


5323 


2024 


6615 


06 74 


0674 


2025 


6616 


0000 


0000 


2026 


6617 


7120 


7120 


2027 


6620 


5323 


5323 


2030 


6621 


0045 


0045 


2031 


6622 


0000 


0000 


2032 


6623 


7240 


7240 


2033 


6624 


4675 


4675 


2034 


6625 


1277 


1277 


2035 


6626 


0000 


0000 


2036 


6627 


7604 


7604 


2037 


6630 


4170 


4170 


2040 


6631 


00 45 


0045 


2041 


6632 


0000 


0000 


2042 


6633 


7041 


7041 


2043 


6634 


4464 


4464 


2044 


6635 


1344 


1344 


2045 


6636 


0000 


0000 


20 46 


6637 


7402 


7402 


2047 


6640 


5076 


5076 


20 50 


6641 


1232 


1232 


2051 


6642 


0000 


0000 


2052 


6643 


7404 


74 04 


2053 


6644 


5312 


5312 


20S4 


6645 


1120 


1120 


2055 


6646 


0000 


0000 


2056 


6647 


7410 


7410 


2057 


6650 


53 31 


53 31 


2060 


6651 


0674 


0674 


2061 


6652 


0000 


0000 


20 62 


66 53 


74 30 


74 30 


2063 


6654 


5315 


5315 


2064 


6655 


0674 


0674 


2065 


6696 


0000 


0000 


2066 


6657 


7420 


7420 



/CLSA 



/cue A 



/CLBA 



/GLK 



/STL 



/STA 



/LAS 



/CIA 



/HIT 



/OSR 



/SKP 



/S2U 



/SNL 



2067 


66 60 


5315 


5315 


/SNA 


2070 


66 61 


00 45 


0045 




2071 


6662 


0000 


0000 




2072 


6663 


7450 


7450 




2073 


6664 


5317 


5317 


/SPA 


2074 


6665 


0045 


0045 




2075 


6666 


0000 


0000 




2076 


6667 


7510 


7510 




2077 


6670 


5331 


5331 


/SZA 


2100 


6671 


0045 


0045 




2101 


66 72 


0000 


0000 




2102 


6673 


7440 


7440 




2103 


6674 


5314 


5314 


/SHA 


2104 


6675 


0045 


0045 




2105 


6676 


0000 


0000 




2106 


6677 


7500 


7500 




2107 


6700 


45 16 


4516 


/I AC 


2110 


6701 


0157 


0157 




2111 


6702 


0000 


0000 




2112 


6703 


7001 


7001 




2113 


6704 


5256 


5256 


/RTL 


2114 


6705 


0674 


0674 




2115 


6706 


0000 


0000 




2116 


6707 


7006 


7006 




2117 


6710 


5233 


5233 


/RAL 


2120 


6711 


0674 


06 74 




2121 


6712 


0000 


0000 




2122 


6713 


7004 


7004 




2123 


6714 


5256 


5256 


/RTR 


2124 


6715 


12 32 


1232 




2125 


6716 


0000 


0000 




2126 


6717 


7012 


7012 




2127 


6720 


5233 


5233 


/RAR 


2130 


6721 


1232 


1232 




2131 


6722 


0000 


0000 




2132 


6723 


7010 


7010 




2133 


6724 


4174 


4174 


/CML 


2134 


6725 


0674 


0674 




2135 


6726 


0000 


0000 




2136 


6727 


7020 


7020 




2137 


6730 


4174 


4174 


/CHA 


2140 


6731 


(10 45 


0045 




2141 


6732 


0000 


0000 




2142 


6733 


70 40 


7040 




2143 


6734 


4173 


4173 


/CLL 


2144 


6735 


0674 


0674 




2145 


6736 


0000 


0000 




2146 


6737 


7100 


7100 




2147 


6740 


4173 


4173 


/CUA 


2150 


6741 


0045 


0045 




2151 


6742 


0000 


0000 




2152 


6743 


7200 


7200 




2153 


6744 


5025 


5025 


/NOP 


2154 


6745 


1120 


1120 




2155 


6746 


0000 


0000 




2156 


6747 


7000 


7000 




2157 


67 50 


45 77 


45 77 


/J MP 


2160 


6751 


1120 


1120 




2161 


6752 


0000 


0000 




2162 


6753 


5000 


5000 




2163 


6754 


4577 


4577 


/JMS 


2164 


67 55 


1277 


1277 




2165 


6756 


0000 


0000 





2166 


6757 


4000 


40 00 




2167 


O / Ov 






/n r A 

/U UA 


ei / W 


67 61 


00 43 


0045 




2171 


6762 


0000 


0000 




2172 


6763 


3000 


3000 




2173 


6764 


45 40 


45 40 


/ISiJ 


2174 


6765 


1702 


1702 




2175 


6766 


0000 


0000 




2176 


67 67 


2000 


2000 




2177 


6770 


5345 


5345 


/TAD 


2200 


6771 


0224 


0224 




2201 


6772 


0000 


0000 




2202 


6773 


1000 


1000 




2203 


6774 


4063 


4063 


/AND 


2204 


6775 


0224 


0224 




2205 


6776 


0000 


0000 




2206 


6777 


0000 


0 





2207 EJECT 



2210 






/L INC 


SYM TABLE 


2211 








•7000 








/ 




2213 






/ 




2214 


7000 


5607 


5607 




2215 


7001 


0045 


0045 




2216 


70 02 


00 00 


0000 




2217 


7003 


0021 


0021 




9990 


7004 


5201 


5201 


/QLZ 


9991 


7005 


1702 


1702 




9999 


7006 


0000 


0000 




Q59^ 


7007 


0455 


0455 




22 24 


7010 


4352 


4352 


/ruo 




70 11 


10 53 


1053 




2226 


70 12 


00 00 


0101 0101 

1010 i0V 




cZc7 






B^9^ 










4A 49 




99"<"» 


701 1 








99 T9 


7016 


0000 


0000 






7017 


0415 


0415 






7020 


5305 


5305 


/sfa 


2235 


7021 


0045 


45 




2236 


7022 


0000 


0 




2237 


7023 


0024 


24 




2240 


7024 


4075 


4075 


/AXO 


2241 


7025 


1053 


1053 




2242 


7026 


0000 


0000 




2243 


7027 


0001 


0001 




22 AA 


70 30 


4314 


4314 


/ESF 


2245 


7031 


0336 


0336 




2246 


7032 


0000 


0000 




2247 


7033 


0004 


0004 




2250 


7034 


4464 


4464 


/HLT 


2251 


7035 


1344 


1344 




2252 


7036 


0000 


0000 




2253 


7037 


0000 


0000 




2254 


7040 


5166 


5166 


/QAC 


2255 


7041 


0157 


0157 




2256 


7042 


0000 


0000 




2257 


7043 


0005 


0005 




2260 


7044 


4173 


4173 


/CLR 


2261 


7045 


1232 


1232 




2262 


7046 


00 00 


0000 




2263 


7047 


0011 


0011 




2264 


7050 


4071 


4071 


/ATR 


2265 


7051 


1232 


1232 




2266 


7052 


0000 


0000 




2267 


7053 


0014 


0014 




2270 


7054 


5256 


5256 


/RTA 


2271 


7055 


0045 


0045 




2272 


7056 


0000 


0000 




2273 


7057 


0015 


0015 




2274 


7060 


5025 


5025 


/NOP 


2275 


7061 


1120 


1120 




2276 


7062 


0000 


0000 




2277 


7063 


0016 


0016 




2300 


7064 


4176 


4176 


/COM 


2301 


7065 


0741 


0741 




2302 


7066 


0000 


0000 




2303 


7067 


0017 


0017 




2304 


7070 


5304 


5304 


/SET 


2305 


70 71 


1344 


1344 




2306 


7072 


0000 


0000 





2307 
23113 
23 U 
2312 
2313 
2314 
2315 
2316 
2317 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2370 
23 71 
2372 
2373 
2374 

23 75 
2376 
2377 
2400 
2401 
2402 

24 03 
2404 
2405 



7073 
7074 
7075 
7076 
7077 
7100 
7101 
7102 
7103 
7104 
7105 
7106 
7107 
7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7120 
7121 
7122 
7123 
7124 
7125 
7126 
7127 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7150 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7160 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7170 
7171 



0040 
5300 
0741 
0000 
0100 
4235 
1277 
0000 
0140 
5613 
0627 
0000 
0200 
5251 
06 74 
0000 
02 40 
5251 
1232 
0000 
0300 
5302 
1232 
0000 
0340 
5327 
06 74 
00 00 
04 00 
5315 
1277 
§000 
0440 
5312 
1120 
0000 
0456 
4077 
02 71 
0000 
0450 
4065 
1053 
0000 
0451 
4726 
0271 
0000 
0452 
4236 
1232 
0000 
0006 
4705 
0336 
0000 
0600 
4700 
0336 
0000 
0640 
5236 
0157 



0040 
5300 
0741 
0000 
0100 
4235 
1277 
0000 
0140 
5613 
0627 
0000 
0200 
5251 
0674 
0000 
0240 
5251 
1232 
0000 
0300 
5302. 
1232 
0000 
0340 
5327 
0674 
00 00 
04 00 
5315 
1277 
0000 
0440 
5312 
1120 
0000 
0456 
48 77 

02 71 
0000 
0450 
4065 
1053 
0000 
0451 
4726 
0271 
0000 
0452 
4236 
1232 
0000 
0006 
4705 

03 36 
0000 
0600 
4700 
0336 
0000 
06 40 
5236 
0157 



/SAM 

/OIS 

/XSK 

/ROi. 

/ROR 

/SCR 

/SXU 

/SNS 

/SKP<L> 

/AZ£ 

/APO 

/LZE 

/OJR 

/LIF 

/UDF 

/RDC 



2406 
2407 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
24 20 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2470 
2471 
24 72 
2473 
2474 
2475 
2476 
2477 
2500 
2501 
2502 
2503 
2504 



7172 
7173 
7174 
7175 
7176 
7177 
7200 
7201 
7202 
7203 
7204 
7205 
7206 
7207 
7210 
7211 
7212 
7213 
7214 
7215 
7216 
7217 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7250 
7251 
7252 
7253 
7254 
7255 
72 56 
7257 
7260 
7261 
7262 
7263 
7264 
7265 
72 66 
7267 
72 70 



0000 
0700 
52 35 
0403 
00 00 
0701 
5236 
0271 
0000 
0702 
4765 
0112 
00 00 
0703 
5545 
0157 
0000 
0704 
5526 
0403 
0000 
0705 
5545 
0515 
0000 
0706 
4167 
0627 
00 00 
0707 
5300 
0271 
00 00 
14 40 
5321 
10 53 
0000 
1500 
4115 
0674 
0000 
1540 
4135 
0271 
0000 
1600 
4115 
1053 
0000 
1640 
4247 
0157 
0000 
1740 
4051 
0224 
0000 
2000 
5323 
0157 
00 00 
4000 
4577 



0000 
0700 
5235 
0403 
0000 
0701 
5236 
0271 
0000 
0702 
4765 
0112 
0000 
0703 
5545 
0157 
0000 
0704 
5526 
0403 
0000 
0705 
5545 
0515 
0000 
0706 
4167 
0627 
0000 
0707 
5300 
0271 
0000 
1440 
5321 
1053 
0000 
1500 
4115 
0674 
0000 
1540 
4135 
0271 
0000 
1600 
4115 
1053 
0000 
1640 
4247 
0157 
0000 
1740 
4051 
0224 
0000 
2000 
5323 
0157 
00 00 
4000 
4577 



/RCG 
/ROE 
/MTB 
/WRC 
/MCG 
/WRI 
/CHK 
/SAE 
/SRO 
/BCt 
/BSE 
/BCO 
/OSC 
/ADD 
/STC 
/JMP 



2505 


7271 


1120 


1120 




2506 


7272 


0000 


0000 




2507 


7273 


6000 


6000 




2510 


7274 


4764 


4764 


/HSC 


2511 


72 75 


0157 


0157 




2512 


7276 


0000 


0000 




2513 


7277 


00 00 


0000 




2514 


7300 


4700 


4700 


/LDA 


2515 


7301 


0045 


0045 




2516 


7302 


0000 


0000 




2517 


7303 


1000 


1000 




2520 


7304 


5323 


5323 


/STA 


2521 


73 05 


0045 


0045 




2522 


7306 


0000 


0000 




2523 


7307 


1040 


1040 




2524 


7310 


4051 


4051 


/ADA 


2525 


7311 


0045 


0045 




2526 


7312 


0000 


0000 




2527 


7313 


1100 


1100 




2530 


7314 


4051 


4051 


/AOM 


2531 


7315 


0741 


0741 




2532 


7316 


00 00 


0000 




2533 


7317 


1140 


1140 




2534 


7320 


4675 


4675 


/LAM 


2535 


7321 


0741 


0741 




2536 


7322 


0000 


0000 




25 37 


7323 


1200 


1200 




2540 


7324 


4766 


4766 


/MUL 


25 41 


7325 


06 74 


06 74 




2542 


7326 


0000 


0000 




2543 


7327 


1240 


1240 




2544 


7330 


4700 


4700 


/LOH 


2545 


7331 


0450 


0450 




2546 


7332 


0000 


0000 




2547 


7333 


1300 


1300 




25 50 


7334 


5323 


5323 


/STH 


2551 


7335 


04 50 


0450 




2552 


7336 


00 00 


0000 




2553 


7337 


1340 


1340 




2554 


7340 


5307 


5307 


/SHD 


2555 


7341 


0224 


0224 




2556 


7342 


0000 


00 00 




2557 


7343 


1400 


1400 




2560 


7344 


5345 


5345 


/TAG 


2561 


7345 


0157 


0157 




2562 


7346 


0000 


0000 




2563 


7347 


0003 


0003 




25 64 


7350 


53 61 


5361 


/TMA 


2565 


7351 


0045 


0045 




2566 


7352 


0000 


0000 




2567 


7353 


0023 


0023 




2570 


7354 


5124 


5124 


/PDP 


2571 


7355 


1120 


1120 




2572 


7356 


0000 


0000 




2573 


7357 


0002 


0002 




2574 


7360 


5323 


5323 


/STO 


25 75 


7361 


0224 


0224 




2576 


7362 


0000 


0000 




2577 


7363 


0416 


0416 




2600 


7364 


4717 


4717 


/usw 


2601 


7365 


1523 


1523 




2602 


7366 


0000 


0000 




2603 


7367 


0517 


0517 





2604 
2605 
2606 
2607 
2610 
26H 
2612 
26X3 
2614 



7370 
7371 
7372 
7373 
7374 
7375 
7376 
7377 



•>255 
1523 
0000 
0516 
4534 
0112 
0000 
0500 



52b5 

15:^3 
0000 

0516 
4534 
0112 
0000 
0500 



/RSW 
/I 08 
EJECT 



2615 






/SPECIAL CHARACTERS AND 


PSEUDO-INSTRUCTIONS 


2616 






*7400 






2617 






/ 






2620 


7480 


6167 


6167 




/CHA IN 


2621 


7401 


0056 


0056 






2622 


7402 


1006 


1006 






2623 


74 03 


2536 


XCHAIN 






26 24 


7404 


6705 


6705 




/L ISTAPE 


2625 


7405 


1323 


1323 






2626 


7406 


0065 


00 65 






2627 


7407 


5615 


OUTPUT 






2630 


7410 


63 03 


6303 




/EJECT 


2631 


7411 


0274 


0274 






2632 


7412 


1344 


1344 






2633 


7413 


4261 


PSUD05 




/PSEUDO QP 5 


2634 


7414 


60 70 


60 70 




/ASM IFi { I H AD IT ASS I 


26 35 


74 15 


0752 


0752 






2636 


7416 


0354 


0354 






2637 


7417 


4265 


PSUOOl 




/PSEUDO OP 1 


2640 


7420 


6070 


60 70 




/ASMIFN 


2641 


7421 


0752 


0752 






2642 


7422 


0370 


0370 






2643 


7423 


4264 


PSUD02 




/PSEUDO OP 2 


2644 


7424 


6070 


6070 




/ASM IFH 


2645 


7425 


0752 


0752 






26 46 


74 26 


03 53 


0353 






26 47 


7427 


4263 


PSUD03 




/PSEUDO OP 3 


2650 


7430 


6070 


6070 




/ASMSKP 


2651 


7431 


0764 


0764 






2652 


7432 


0647 


0647 






2653 


7433 


4257 


PSU007 




/PSEUDO OP 7 


2654 


7434 


7300 


7300 




/S AVSYK 


2655 


7435 


1501 


1501 






2656 


74 36 


16 52 


1652 






2657 


7437 


4260 


PSU006 




/PSEUDO OP 6 


2660 


7440 


6347 


6347 




/F lELD 


2661 


7441 


0305 


0305 






2662 


7442 


0224 


0224 






2663 


7443 


2705 


FLOUP 






2664 


7444 


7135 


7135 




/PMOOE 


2665 


7445 


10 57 


10 57 






2666 


74 46 


0271 


02 71 






2667 


7447 


3304 


PDP8MD 






2670 


7450 


6711 


6711 


/LMOOE 




2671 


7451 


1057 


1057 






26 72 


7452 


0271 


0271 






2673 


7453 


3303 


UNKMOO 






26 74 


74 54 


73 04 


7304 




/SECMNT 


2675 


7455 


0420 


0420 






26 76 


7456 


1032 


1032 






2677 


7457 


0200 


BANKCH 






2700 


7460 


6713 


6713 




/LOOSYH 


2701 


7461 


0247 


0247 






2702 


7462 


1652 


1652 






2703 


7463 


4262 


PSUD04 




/PSEUDO OP 4 


2704 


7464 


0000 


0000 


/AND 




2705 


7465 


0000 


0000 






27 06 


7466 


00 62 


00 62 






2707 


7467 


3400 


3400 






2710 


7470 


7056 


7056 


/OCTAL 




2711 


7471 


1345 


1345 






2712 


7472 


0674 


0674 






2713 


7473 


2227 


OCT 







BUT THE PRUOES THOUGHT IT WAS TOO 



2714 


74 74 


6231 


6231 


/DEC IHAL 


2715 


74 75 


01 70 


01 70 




2716 


7476 


0742 


0742 




2717 


7477 


22 25 


OECI M 




2720 


7 500 


7351 


7 351 


/TEXT 


2721 


7501 


1614 


1614 




2722 


7502 


00 00 


0 




27 23 


75 03 


16 10 


STRI NG 




2724 


7504 


7025 


7025 


/NOL IS T 


27 25 


75 05 


07 05 


07 05 




2726 


7506 


1323 


1323 




2727 


7507 


0555 


PU 1ST 




2730 


7510 


6705 


6705 


/UIST 


2731 


7511 


1323 


1323 




2732 


7512 


0000 


0000 




2733 


7513 


0554 


DOLIST 




2734 


7514 


7121 


7121 


/PACE 


2735 


7515 


0410 


0410 




2736 


7516 


0000 


0 




2737 


7517 


0477 


PAGEC 




2740 


7520 


0000 


0000 


/SEMICOLON 


2741 


7521 


0000 


0000 




2742 


7522 


0046 


0046 




2743 


7523 


0200 


0200 




2744 


7524 


0000 


0000 


/EXCLA MATION 


2745 


7525 


0000 


0000 




2746 


7526 


0055 


0055 




2747 


7527 


2200 


2200 




2750 


7530 


6000 


6000 


/S TAR 


2751 




0000 


0000 




2752 


7^04 


0066 


0066 




2753 




1345 


ORGI C 




27 54 


75 34 


60 00 


60 00 


/POI NT 


2755 


7535 


0000 


0 




2756 


7536 


0072 


0072 




2757 


7537 


4142 


PERIOD 




9fiia 
c7ov 




6000 


6000 


// 


2761 


7541 


0000 


0000 




2762 


7542 


0075 


0075 




2763 


7543 


3570 


THOU 




2764 


7544 


7411 


7411 


/U 


2765 


75 45 


0000 


00 00 




2766 


7546 


0000 


0000 




27 67 


7547 


1105 


UN 




27 70 


7550 


00 00 


0000 


/COHMA 


2771 


7551 


0000 


0000 




2772 


7552 


0070 


0070 




2773 


7553 


0600 


0600 




2774 


75S4 


0000 


0000 


/■ 


2775 


7555 


0000 


0000 




2776 


7556 


0050 


1010 7U 




2777 


7557 


1400 


1400 




3000 


7560 


7702 


7702 


/2 


3001 


7561 


0000 


0 




3002 


7562 


0000 


0 




3003 


7563 


1025 


A*l 




3004 


7564 


6515 


6515 


/I 


3005 


7565 


0000 


0 




3006 


7566 


00 00 


0 




3007 


7567 


1066 


H 




3010 


7570 


0000 


0000 


/- 


3011 


7571 


0000 


0000 




3012 


7572 


0071 


0071 





3013 7573 5200 5200 

3014 7574 0000 0000 

3015 7575 0000 0000 

3016 7576 0067 0067 

3017 7577 4600 4600 

3020 7600 0000 0000 /SPACE 

3021 7601 0000 0000 

3022 7602 0054 0054 

3023 7603 5600 5600 

3024 / 

3025 / 

3026 / 

3027 / 
3030 / 
30 31 / 

3032 / 

3033 / 

3034 / 

3035 / 

3036 / 

3037 EJECT 



3040 






/ 








3041 






/ 








3042 






/ 








3043 






/ 








3044 






/ 








3045 






/ 








30 46 








FIELD 


1 


3047 






/ 








3050 






/ 








3051 






/ 








3052 






/ 








3053 






/ 








3054 






/ 








3055 








• 5000 




3056 






/ 








30 57 






/ 








3060 






/ 








3061 






/ 








3062 






/ 








3063 






/ 








3064 






/ 








3065 






/ 








3066 


5000 


0000 


XXXXi 


0 






3067 


5001 


17 54 




TAD 


I 


XBBLOCK 


3070 


5002 


0353 




AND 




XL 77 


3071 


5003 


33 66 




OCA 




XTHISBLOCK 


3072 


5004 


4312 




JMS 




XRESET 


3073 


5005 


7240 




CLA 


CM A 




3074 


5006 


4264 




JMS 




XPUT 


30 75 


50 07 


5205 




JMP 




.-2 


3076 


5010 


4312 




JMS 




XRESET 


3077 


5011 


4322 


XUOOPlf 


JMS 




XCET 


3100 


5012 


5334 




JMP 




XCER 


3101 


5013 


5225 




JMP 




XOKl 


3102 


5014 


1051 




TAD 




ITEM 


3103 


5015 


1350 




TAD 




XM47 


3104 


5016 


76 50 




SNA 


CLA 




3105 


5017 


5211 




JMP 




XLOOPl 


3106 


5020 


1051 




TAD 




ITEM 


3107 


5021 


1346 




TAD 




XM40 


3110 


50 22 


76 50 




SNA 


CLA 




31 11 


5023 


52 11 




JMP 




XLOOPl 


3112 


5024 


53 34 




JMP 




XCER 


3113 


5025 


4322 


XOKl, 


JMS 




XGET 


3114 


5026 


5334 




JMP 




XCER 


3115 


5027 


5334 




JMP 




XCER 


3116 


5030 


5234 




JMP 




XINTOI 


3117 


5031 


43 22 


XL00P2 r 


JMS 




XCET 


3120 


5032 


5334 




JMP 




XCER 


3121 


50 33 


52 44 




JMP 




XDONEl 


3122 


5034 


1051 


XINTOI, 


TAD 




ITEM 


31 23 


5035 


4765 




JMS 


I 


XCON 


3124 


5036 


3764 




DCA 


I 


XXXP 


3125 


5037 


23 64 




ISZ 




XXXP 


3126 


50 40 


1051 




TAD 




ITEM 


3127 


5041 


4264 




JMS 




XPUT 


3130 


5042 


5231 




JMP 




XL00P2 


3131 


50 43 


5334 




JMP 




XCER 


3132 






/ 








3133 


5044 


7240 


XOONEl. 


CLA 


CM A 




3134 


5045 


4264 




JMS 




XPUT 


3135 


5046 


7000 




NOP 






3136 


5047 


4322 




JMS 




XGET 



/THIS IS REALY IN 5000 OF FIELD 0, 



3137 


5050 


5743 




JMP 


I 


XN 


3140 


5051 


5334 




JMP 




XCER 


3141 


50 52 


3033 




DCA 




EVAL 


3142 


5053 


3020 




OCA 




ANY 


3143 


5054 


4477 




JMS 


I 


EXPRl 


3144 


5055 


1020 




TAD 




ANY 


3145 


5056 


7650 




SNA 


CLA 




3146 


50 57 


5743 




JMP 


I 


XN 


3147 


50 60 


1033 




TAD 




EVAL 


3150 


5061 


03 53 




AND 




XL77 


3151 


5062 


3366 




DCA 




XTHISBLOCK 


3152 


5063 


5743 




JMP 


I 


XN 


3153 






/ 








3154 






/ 








3155 






/ 








3156 






/ 








3157 






/ 








3160 






f 








3161 


5064 


0000 


XPUT, 


0 






3162 


5065 


2017 




ISi 




17 


3163 


5066 


52 72 




JMP 




.♦4 


3164 


5067 


7200 




CLA 






3165 


5070 


2264 




ISZ 




XPUT 


3166 


5071 


5664 




JHP 


I 


XPUT 


3167 


50 72 


0353 




AND 




XL 7? 


3170 


5073 


3322 




OCA 




XGET 


3171 


5074 


2355 




ISZ 




XHALF 


3172 


5075 


53 04 




JMP 




XRICHT 


3173 


5076 


1322 




TAD 




XGET 


3174 


5077 


7106 




Cll 


RTL 




3175 


5100 


7006 




RTL 






3176 


5101 


7006 




RTL 






3177 


5102 


3356 




DCA 




XT 


3200 


5103 


5664 




JMP 


I 


XPUT 


32 01 






/ 








32 02 


51 04 


72 40 


XRIGHT, 


CLA 


CM A 




3203 


5105 


3355 




DCA 




XHALF 


32 04 


5106 


13 56 




TAD 




XT 


3205 


5107 


1322 




TAD 




XGET 


3206 


5110 


3416 




OCA 


I 


16 


3207 


51U 


5664 




JMP 


1 


XPUT 


3210 






/ 








3211 






/ 








3212 






/ 








3213 






/ 








3214 


5112 


0000 


XRESET, 


0 






3215 


5113 


7240 




CLA 


CM A 




3216 


5114 


33 55 




DCA 




XHALF 


3217 


5115 


1347 




TAD 




XM9 


3220 


5116 


3017 




DCA 




17 


3221 


5117 


1357 




TAD 




XP 


3222 


5120 


3016 




DCA 




16 


3223 


5121 


5712 




JMP 


I 


XRESET 


3224 






/ 








3225 






/ 








3226 






/ 








3227 


5122 


0000 


XGET. 


0 






32 30 


51 23 


4751 




JMS 


I 


XGET IN 


3231 


5124 


1352 




TAD 




XM43 


3232 


5125 


7450 




SNA 






3233 


5126 


5722 




JMP 


1 


XGET 


3234 


5127 


23 22 




ISZ 




XGET 


3235 


5130 


7001 




lAC 







3236 


5131 


7640 




SHA CLA 


3237 


5132 


2322 




isz 


3240 


5133 


5722 




JMP I 


3241 










32 42 










3243 










3244 










3245 






* 




3246 










32 47 


5134 


13 44 


XCERi 


TAD 


3250 


5135 


4476 




JMS I 


3251 


5136 


4465 




JMS I 


32 52 


5137 


44 66 




JMS I 


3253 


5140 


4532 




JMS I 


3254 


51 41 


4530 




JMS 1 


3255 


5142 


5517 




JHP I 


OC 79 






f 




OC 7 / 


5143 


5202 


XN f 


XX N 


32 60 


51 44 


0086 


XL 6» 




32 61 


51 45 


0017 


XLl? 1 


17 


3262 


51 46 


7740 


XH40 » 


<-40 


3263 


5147 


7767 


XH9 1 


■>9 


3264 


51 50 


7731 


XH47 t 


-47 


32 65 


5151 


3670 


XGET IN # 


GET I N 


3266 


5152 


7735 


XM43 f 


.43 


3267 


5153 


0077 


XL77 1 


77 


3270 


5154 


4175 


XBBLOCK 


» B8L0CK 


32 71 


51 55 


0000 


XHALFf 


0 


3272 


5156 


0000 


XT# 


0 


3273 


5157 


5157 


XP, 


1 


3274 


5160 


0000 


XXNli 


0 


3275 


5161 


0000 


XXN2» 


0 


3276 


5162 


0000 


XXN3i 


0 


32 77 


51 63 


0000 


XX N4 , 


0 


3300 


5164 


5310 


XXXPr 


XNMl 


3301 


5165 


3600 


XCONt 


CONVRT 


3302 




/ 




3303 






/ 




3304 






/ 




3305 






/ 




3306 






/ 




3307 


5166 


7777 


XTHISBLOCKi 


3310 


5167 


0036 




36 


3311 


5170 


0346 




346 


3312 


5171 


0002 




2 


3313 






/ 




3314 






f 




3315 






/ 




3316 






i 




3317 






/ 




3320 






/ 




3321 






/ 




3322 


5172 


5600 


XXRETi 


JMP I 


3323 






/ 




3324 






/ 




3325 






f 




3326 






/ 




3327 






f 




3330 






/ 




33 31 






/ 




3332 








PAGE 


3333 






/ 




3334 






/ 





XGET 
XGET 



XL6 

ERRl 

PASSEK 

CURSKA 

SCLEAR 

LINE NO 

MON 



XXXX 



3335 






33 36 






3337 






3340 


5200 


4754 


3341 


b201 


7410 


33 42 


52 02 


1051 


3343 


5203 


1341 


3344 


5204 


7640 


3345 


5205 


5200 


33 46 






3347 


5206 


47 36 


33 50 


52 0 7 


51 66 


3351 


5210 


1337 


3352 


5211 


3016 


3353 


5212 


1340 


33 54 


52 13 


32 02 


3355 


5214 


1016 


3356 


5215 


7040 


3357 


5216 


03 42 


3360 


5217 


70 40 


3361 


5220 


3016 


33 62 


52 21 


13 43 


3363 


5222 


3017 


3364 


5223 


13 44 


3365 


5224 


3203 


33 66 


52 25 


6211 


3367 


5226 


1416 


3370 


5227 


62 01 


3371 


5230 


70 41 


3372 


5231 


1417 


33 73 


5232 


7640 


33 74 


52 33 


53 2 7 


3375 


5234 


2203 


3376 


5235 


5225 


3377 


5236 


6211 


3400 


5237 


1416 


3401 


5240 


3204 


3402 


5241 


1416 


3403 


5242 


6201 


3404 


5243 


7710 


3405 


5244 


5327 


3406 


5245 


4465 


3407 


5246 


4466 


3410 


5247 


4532 


3411 


5250 


4530 


3412 


52^1 


1204 


34l3 


5252 


3745 


3414 


5253 


13 46 


4415 


5254 


3750 


3416 


52 55 


3751 


3417 


52 56 


1347 


3420 


5257 


3752 


3421 


52 60 


3037 


34 22 


52 61 


1733 


3423 


5262 


3734 


34 24 


52 63 


4736 


3425 


5264 


4170 


3426 


5265 


4465 


34 27 


5266 


5321 


3430 


5267 


1335 


3431 


5270 


4475 


3432 


5271 


1277 


3433 


5272 


74 50 



/ 
/ 



XX XR, 


JMS 


I 


XX GET 




SKP 






XXNi 


TAD 




ITEM 




TAD 




XXM43 




S2A 


CLA 






JMP 




XXXR 


/ 










JMS 


I 


XREAD 




XTHISBLOCK 




TAD 




XL 67 77 




OC A 




1 6 




tao 




XM 100 




DC A 




XXN 


XXLOOPi 


TAO 




16 




CM A 








AND 




XL 77 70 




CM A 








DCA 




16 




TAD 




XXP 




OCA 




17 




Tad 




XM4 




DCA 




XXN^'l 


XXLP» 


cor 




10 




TAO 


\ 


16 












CIA 








Tao 


J 


1 7 




32 A 


CL A 






JMP 




XX Y 




IS2 




XX 1 




JM P 




XX LP 




CDF 




1 CI 






t 
t 


10 




DCA 




XXN*2 




TAO 


I 


16 




cor 




0 




SPA 


CLA 






JMP 




XXY 




JMS 


I 


PASS£K 




JHS 


I 


CURSKA 




JMS 


I 


SCLE AR 




JMS 


I 


LINENO 




TAD 




XXN*2 




DCA 


I 


XXL 




TAD 




XL7400 




DCA 


I 


XXI 




DCA 


1 


XX2 




TAO 




XL 44 00 




DCA 


I 


XX3 




DCA 




MODE 




TAO 


I 


XTH 




DCA 


I 


XHT 




JMS 


I 


XRCAO 




(.TAB 








JMS 


I 


PASSEK 




JMP 




XXFH 




TAO 




XM26 




JMS 


I 


SK IP 


XXT, 


TAO 




XX MESS 




SNA 







f 



3434 


5273 


5321 




JMP 


XXFH 


3435 


52 74 


44 01 




JMS 1 


OECOUT 


3436 


5275 


2271 




ISZ 


XX T 


3437 


5276 


5271 




JMP 


XXT 


3440 






/ 






3441 






/ 






3442 


5277 


0303 


XXME SS , 


303 




3443 


5300 


0310 




310 




3444 


5301 


0301 




301 




3445 


5302 


0311 




311 




34 46 


5303 


0316 




316 




3447 


5304 


0311 




311 




3450 


5305 


0316 




316 




3451 


5306 


0307 




307 




3452 






/ 






3453 


5307 


0240 




240 




3454 






/ 






3455 


5310 


0000 


XNMlt 


0 




3456 


5311 


0000 




0 




3457 


5312 


0000 




0 




3460 


5313 


0000 




0 




346i 


5314 


0000 




0 




3462 


5315 


0000 




0 




3463 


5316 


0000 




0 




3464 


5317 


0000 




0 




3465 


5320 


0000 




0 




34 66 






/ 






34 67 






/ 






3470 


5321 


4500 


XXFH f 


JMS I 


TYCARI 


3471 


5322 


7240 




CLA CM A 




3472 


5323 


3012 




OCA 


CURLIN 


3^ 73 


53 24 


4753 




JMS 1 


XBUFIN 


34 74 


5325 


5726 




JMP I 


t ♦! 


34 75 


53 26 


51 72 




XXRE T 




3476 






/ 






3477 






/ 






3500 






/ 






3501 






/ 






3502 






/ 






3503 






/ 






3904 






/ 






3505 


5327 


2202 


XXY# 


ISZ 


XXN 


3506 


5330 


5214 




JMP 


XXLOOP 


3507 


5331 


57 32 




JMP i 


• ♦1 


3510 


5332 


5134 




XCER 




3511 






/ 






3512 






/ 






3513 






/ 






3514 






/ 






3515 






/ 






3516 






/ 






3517 






/ 






3520 






/ 






3521 






/ 






3522 






/ 






3523 


5333 


5166 


XTHi 


XTHISBLO CK 


3524 


5334 


4175 


XHTi 


B8L0CK 




3525 


5335 


7752 


XH26, 


-26 




35 26 


53 36 


7774 


XREAOt 


READ 




3527 


5337 


6777 


XL6777, 


, 6777 




3530 


5340 


7700 


XM100, 


•100 




3531 


53 41 


7735 


XXM43» 


-4 3 




3532 


5342 


7770 


XU7770I 


1 7770 





3533 


5343 


5157 


XXP, 


XP 


35 34 


53 44 


7774 


XM4, 


«4 


3535 


53 45 


4177 


XXL, 


BUFINH 


3536 


5346 


7400 


XL7400, 


7400 


3537 


53 47 


44 00 


XI 4400, 


4400 


3540 


5350 


3354 


XXI, 


CHRC 


3541 


5351 


3351 


XX2, 


WDHALF 


3542 


5352 


3352 


XX3, 


PT8UFP 


3543 


5353 


4006 


XBUriN , 


8UFIN 


3544 


5354 


3670 


XXGET, 


GETIN 


3545 











3546 / 

3547 / 

3550 / 

3551 / 

3552 / 

3553 / 

3554 / 

3555 / 

3556 / 

3557 / 

3560 / 

3561 / 

3562 / 

3563 / 

3564 EJECT 



3565 


/ 


M A J 0 


3566 


/ 




3567 


/ 




3570 


/ 




3571 


/ 




3572 




FUOGEl»326-300 


3573 




rUOGE2»467-370 


35 74 




SCRATCH»32 5-300 


3575 




BCHAIN«324»300 


3576 




BOOUT3450-370 


3577 


/ 




3600 


/ 




3601 


/ 




3602 


/ 




36 03 


/ 




3604 




Ot AUUN!Tel00 


3605 




01 AUBINARY>111 


3606 


/ 




3607 


/ 




3610 


/ 




3611 


/ 




3612 




REAO-7774 


3613 




WRITE«7775 


3614 


/ 




3615 


/ 




3616 


/ 




3617 


/ 




3620 


/ 




3621 


/ 




3622 


/ 




3623 


/ 




3624 


/ 




3625 




EJECT 



MAJOR TAPE DEFINITIONS 



/DEFINES A SCRATCH AREA FOR SA VSYMSLOOSYM 



3626 / 

3627 / 
36 30 / 

3631 / 

3632 / 

3633 / 

3634 / 

3635 / 

3636 / 

3637 / 

3640 EJECT 



END ASSEMTHREE 



3641 
3642 
3643 
3644 
3645 



NO ERRORS 



SYMBOL 


VALUE 


DEF 


REFERENCES 




A 


1024 


1515 






1565 


3003 


A A OR 


003B 


0331 


0^1 7 


0522 


0525 


0553 












2764 


2770 


AAORL 


3052 


1603 




•1 A9A 






AALPHA 


4004 


2602 


9A 7i 
£0 /X 








AAS 


1332 


2030 


2041 


1 /I / 






ABANK 


0046 


0347 


C B / 10 






2432 


ABNOPl 


3042 


1573 


0067 








ABN0P2 


3043 


1574 


0070 








ABN0P3 


3044 


1575 


0071 








ABN0P4 


30 45 


1576 


00 72 








ACHECK 


54 60 


03 57 


04 24 








ACOUNT 


54 00 


0250 


0340 


0345 


0346 


0366 


AODCON 


4254 


3120 


3103 








AOR 


0165 


0467 


1602 


1733 






AEJECT 


5516 


0434 


0310 








AEPONT 


553Z 


0452 


"*4'' 








AEP62 


5531 


0451 


04 41 








AFORT 


5457 


0356 


0411 








ALL 


7600 


14 67 


1527 








ALPHA 


2400 


1116 


1215 


_ 

Z6B£ 






ALPHAB 


34 45 


2153 


21 33 








AMAINP 


5507 


0421 


0353 








AHM10 


5505 


0417 


111^91 
V<3C«J 








ANOS 


3400 


1463 










ANLXC 


6054 


12 40 


1 9 1 

10 


4 9A1 

X <o 1 






ANLXE 


6057 


1244 










ANY 


0020 


0321 


05 13 


01 71 4 


1 0i9<i 
110CX 


007 7 


ANYY 


23 67 


1102 


01 7flA 
V f 


i 1 1 9 
X XXc 






APAENO 


5477 


0376 










APAGE 


0031 


0332 




2055 




0231 


ASEND 


5506 


0420 










ASPAST 


5467 


0366 


0363 








ASSNO 


5503 


0411 




0331 


0337 


0437 


ASSRST 


5471 


0370 


0401 








ASSYIN 


54 41 


03 40 


03 33 








AWAY 


1241 


1737 


1^23 


1727 






AlW 


1313 


2011 


cvZ/ 


9 AT 4 


9a 1^ 
cBOtf 


2035 


B 


1076 


1567 


1!>1/ 


19cB 






BAO 


6400 


1326 




i 179 


4 9TK 




BANOO 


5031 


0074 


0115 








6ANKCH 


0200 


0512 


yA 7T 








8ANKEM 


0220 


0532 


as 1 R 

107 1? 








-BANKHR 


0211 


0523 


05 40 








6AN0P1 


5024 


0067 


0106 








BANOPd 


5025 


0070 


0110 








BAN0P3 


5026 


0071 


0112 










50 27 


00 72 


0114 








BAN0P5 


50 30 


00 73 


0116 








BBLOCK 


4175 


3021 


2^06 


2617 


3270 


3524 


6CHAIN 


d024 


3575 


1315 








6EGNAS 


5002 


0045 










BEGNLI 


5000 


0043 










BINBLK 


0011 


0311 


1553 


2 363 


2423 


2647 


BINCK 


3020 


1551 


1545 








BINHOR 


4164 


3004 


2664 








BINPTR 


0010 


0310 


1542 


1546 


1550 


1551 


BINTAB 


0176 


0500 


1541 








BIT 


2047 


0554 


2456 








BITT 


3712 


2456 


2455 








B1T6 


3400 


2102 


0366 


2113 


2126 


2141 



2776 



0443 0446 0465 0564 1002 



SYMBOL 


VALUE 


DEF 


REFERENCES 






8IT6A 


0064 


0366 












BIT6M3 


3462 


2170 












8LKUSE 


4340 


3301 














5033 


0100 












BLPM22 


5036 


0101 


0i24 










BITAD 


5032 


0075 


01 17 


10 XC 1 








BLTADi 


50 33 


0076 


01 20 










BLTA02 


5034 


00 77 


01 22 










BO OUT 


0060 


3576 












Buri 


3350 


2027 


2 014 










BUFIN 


4006 


2604 


23zy 




Of, xa 
CO ou 


3543 




BUFINZ 


4177 


3023 


2607 


2615 


35 35 






BUMP 


07 26 


13 23 


1270 


1312 


13 24 


1325 


1331 


61 


1041 


1532 




1542 


1 ^AX 






Bil 


0434 


0755 


0734 


0744 








62 


1046 


1537 


0405 


1550 


1574 






821 


0103 


0405 


1111 






1774 


2767 


C 


1055 


1546 




19<« 


4 K 9 A 

15Z4 


1526 


1540 


CARET 


34 43 


2151 


21 24 










CCDF 


0753 


1355 


1 X*Lt 
10 










CCNOP 


63 04 


1456 


1453 










CHAR AC 


0057 


0360 


101 ^ t 


0567 


05 73 


0616 


0633 


CNARX 


0044 


0345 


*» » CC 


1773 


2007 


0555 


0556 


CHARX2 


0045 


0346 




aR*t 7 


0711 


072 0 




CHECK 


0740 


1342 




11' i 




1347 


1351 


CHECKO 


5737 


1032 


9A AA 

CO ^o 


4 lAA 7 








CHEKER 


00 70 


0372 


n3 ax 










CHKL 


1264 


1762 


1 '30 










CHKLA 


1222 


1720 












CHO 


40 45 


26 43 


26 24 










CHRC 


3354 


20 33 


20 06 


2011 


OA AX 
CO *0 


3540 




CJMPl 


1547 


0224 


03 75 


10 iffO C 


vc cc 






CKUN 


32 62 


1740 


17 31 


1 74 4 








CLEARR 


2132 


0637 


0434 


0127 


0650 






CIENUP 


1453 


0127 


00 71 










CNOP 


07 47 


1351 












CNTUPl 


0004 


0302 


00 70 


1 24 4 


14 04 


2725 




CNTNON 


2363 


1075 


IB 72 










CNTRLP 


2353 


1064 


^302 


1 06 6 


A atx 
1070 






COMMA 


0600 


1456 


13^1 










COMHAN 


0260 


0574 


^^AA 

»3 44 


0254 








CO MM EN 


3701 


24 45 


05 40 


r> AK o 
£43 2 








COMS 


2036 


0540 


0546 










CON 


6164 


0466 


1472 


4 Al A 

1474 


1000 


1627 


1711 


CONREC 


3725 


2502 


2453 










CONSKP 


3474 


2440 


2446 


2454 








CONVRT 


3600 


2340 


flZA9 




"Kl 014 

oovi 






CONYES 


3700 


2444 


2445 


0073 








COSA 


3541 


22 70 


22 55 










COUNT 


0760 


1370 


1167 


1264 


1265 


1304 


1314 


CRFOUN 


6010 


1151 


1143 










CRIOR 


1165 


1660 


1505 


1546 


1551 


1553 


1555 


CTYPO 


0763 


13 73 


1357 










CURL IN 


0012 


0312 


0406 


0414 


0425 


0433 


1247 


CURR 


0043 


0344 


07 71 


0774 


0775 


1002 


1010 


CURREN 


0227 


0542 


1667 










CURSKA 


0066 


0370 


0530 


1035 


1655 


2064 


0173 


CURSKP 


2520 


1246 


0370 


1254 








CIA 


3576 


2325 


2324 










DECIH 


2225 


07 32 


2717 










OECIMS 


2231 


0736 


0732 


0741 








OECOUT 


0001 


0277 


1407 


0657 


1240 


1242 


1451 



1240 1242 1451 1471 1674 1 703 ?2l1 2?6? ??A4 ?72l 27?3 2724 B&57 1 «47 34SS 



SYMBOL 


VALUE 


DEF 


REFERENCES 




OEFI Nl 


1174 


1667 


1600 








0! AUBI 


01 11 


3605 


3004 


3176 


0520 


0602 


D ! AU UN 


01 00 


36 04 


1313 


1321 


2060 


3011 


DI SRE 


40 01 


2576 


2665 








01 SRET 


3463 


2171 


2216 


2576 






Din 


2126 


0633 


0673 








OOCAt 


1426 


0102 


0252 


0425 






OOLEFT 


1474 


0151 


0143 








DOLIST 


0554 


1076 


2733 








DOPOUT 


056 7 


11 11 


1103 








DPCS 


2212 


0717 


0714 


0731 






OPCV 


2200 


0705 


0736 


0723 


0726 




OP CV M2 


2242 


0747 


0715 








OPCVOP 


0415 


0736 


0733 








DRHT 


2111 


0616 


0674 








DV3 


2640 


1433 


1430 








06 


0300 


0246 


1775 


3013 






07 


0370 


0247 


0310 


0500 


2600 


2637 


08 


0410 


0250 










09 


0446 


0251 










£0£r IN 


3771 


2561 


2556 








EMUEVE 


21 30 


0635 


0571 


0620 






EMPTRA 


01 72 


04 74 


0576 


0600 


06 01 


0622 


EMPTY 


2054 


05 61 


03 63 


0566 


06 36 




EMPT Yl 


0061 


0363 


0110 


1253 






ENDMS 


37l 7 


2 471 


0700 


0427 






EN TS 


20 00 


05 01 


0525 


0S31 


0533 


1745 


ENTSl 


3267 


17 45 


1733 








EOCHK 


2332 


1043 


1^32 


1050 






EQCHKI 


23 40 


1051 


1045 








EQRETl 


00 06 


03 04 


1637 


1643 


1047 


2046 


EQU 


11 42 


1635 


1572 








EQUALS 


1400 


1460 


1544 


1572 






EQUCHK 




2045 


i051 


2050 






n ft IP OB 

EQUERR 


o7oo 


2555 


1633 








ERONE 


1140 


1632 


1544 








ERRCNT 


01 67 


0471 


^167 


0 210 


e^642 


0645 


ERROR 


3201 


1656 


0400 
0757 


0 400 


1713 




ERRl 


00 76 


04 00 


1671 


1026 


103 7 


ERR12 


2364 


10 77 


10 57 








ERR2 


2275 


1006 


05 76 


1012 


1024 


1027 


ERSY 


0674 


1245 


ii56 








ERTOT 


00 02 


03 00 


0:206 


0643 


0644 


2173 


EVAL 


0033 


0334 


0526 


0S33 


0535 


1033 








0323 


0324 


0360 


1513 


EXCIAM 


2200 


1462 


1524 








EXPR 


1000 


1471 


1^401 


1512 


1605 


1630 


EXPRl 


0077 


0401 


d$l2 


1020 


1641 


1702 


E7 


0000 


0245 










FA CT OR 


43 30 


3222 


3213 








FORT 


2714 


1510 


0377 


1504' 


1515 


1521 


FIELDM 


2717 


1513 


1507 








FINE NO 


2173 


0700 


0553 


0426 






FIRST 


6110 


1325 


1271 


1313 


1371 


1274 


FUOUP 


2705 


1501 


2663 








FUOWO 


0036 


0337 


0534 


0207 


1523 


1543 


FOUND 


25 07 


1231 


1120 


1205 


1213 


1221 


FSBUK 


4002 


26 00 


2613 


0147 


0152 




FSUNIT 


4003 


2601 


2616 


0145 






FUDGE! 


0026 


3572 


0211 








FU0GE2 


0077 


3573 


05 22 








G 


1113 


1604 


1525 


1527 







2047 2157 2555 3250 



SYMBOL 



VALUE OEr REFERENCES 



GENINI 


1703 


0401 


0275 


0330 


0370 








GET 


1110 


1601 


1541 


1573 










GETADR 


1200 


1676 


1665 


1700 


1735 


1736 






GETADl 


1172 


166b 


1601 












GETASY 


3242 


1720 


0412 


1723 


1726 


1736 


1737 


174 3 


GETASl 


0110 


0412 


0/62 












GETCHR 


00 67 


03 71 


2435 












6ETIN 


3670 


2434 


0401 


0537 


2443 


2447 


3265 


3544 


CETLET 


0441 


0762 


0727 












GETS 


2035 


0537 


0543 












GETSYM 


04 00 


0721 


04 11 


0761 


0767 


0 772 


0776 


1003 


GETSYl 


0107 


04 11 


1016 


1516 


1537 


1571 






GETVAL 


5401 


0251 


0265 


0 327 


0334 


0461 


1001 




GETYE 


0365 


0703 


0675 












6ETYPE 


3623 


2367 


0703 


2316 


2416 








GGGET 


^676 


1262 


i273 


1356 










GSTART 


0446 


0767 


0753 


1004 


1017 








GT YPOT 


04 64 


1005 


1001 












GYP 


3567 


2316 


2302 












H 


1066 


1557 


1577 


3007 










HI C 


0052 


0353 


0707 


1422 


1431 


1435 






H6 


1075 


1566 


1507 


1511 


1563 


1564 


1610 


1613 


!0X 


2037 


0542 


0406 


0560 


2161 








10X1 


0104 


04 06 


0760 


1515 


1536 1640 1677 2004 


IMINIT 


5132 


0203 


0172 












IMMOVE 


5130 


02 01 


01 56 












IHREAO 


5131 


0202 


0164 












IMTYPO 


5127 


0200 


0171 












IH2i5 


5126 


0177 


01 70 












IN 


0050 


0351 


2003 


172 2 


1724 








INAS 


0073 


0375 


0125 












IND 


0166 


0470 


1611 


1744 


1753 


1770 


0100 




INDl 


03 70 


0706 


0622 


0630 


0636 








INDIB 


0364 


0702 


0674 












INOIC 


03 66 


0704 


06 77 












INIT 


4013 


2611 


0361 


2636 


0203 








INITI 


0060 


0361 


0221 


0167 










INP 


0722 


1313 


1311 


2744 










INST 


0055 


0356 


0650 


1475 


1477 


1622 


1625 


0236 


INSYH 


3375 


2062 


1767 












ITABIN 


5133 


02 07 


0165 












ITEM 


0051 


0352 


0135 


0i4l 


0311 


0321 


0335 


0347 


JBHS TR 


1707 


04 06 


0413 


1356 










JBNOP 


5014 


0057 


0105 


010 7 


0111 0113 






JBSMF 


17 32 


04 33 


04 12 












J8TEST 


1706 


0405 


0432 


0422 


0430 








JEND 


1734 


0435 


1113 


0423 


0062 








JJENO 


05 71 


1113 


1110 












JJSTAR 


0570 


1112 


1105 












JNOP 


1730 


0427 


0102 












JSTART 


1733 


0434 


1112 


0420 


0063 








JUDGE 


2452 


1170 


1152 


1162 










Kiusur 


40 75 


2701 


10 75 












KLOOP 


4114 


2725 


2704 


2731 










KL UG2 


2170 


06 75 


06 67 












LBAO 


6103 


1275 


1227 












LCB 


6662 


1552 


1260 


1266 


1420 


1435 






Lcr 


66 52 


1550 


1240 


1250 


1344 


1417 


15 06 




LCOUNT 


6100 


1272 


12 20 












LOT 


1274 


1772 


1775 


2006 


2010 


2012 


2025 


2037 


LEAVE 


1236 


17 34 


17 32 


1745 


1756 








LEFTHF 


3340 


2017 


2001 













SYMBOL VALUE DEF REFERENCES 



LEVEL 

LFF 

LFF2 

LFIRST 

LFTEST 

LINENO 

LINKDT 

LINKI 

LINKIC 

LINK8 

LINK8A 

LISREG 

LISTA 

LISTHO 

LISTl 

LLB 

UNCK 

LNCKA 

LNINST 

LNKA 

LNKAOO 

INKMOO 

LNKOR 

LNKREG 

LNKSUB 

LNRT 

LOK 

L0KA2 

LOK0 

LOKl 

LOUTP 

LOWTHP 

LPBACK 

LPR 

LPRENT 

LPTEST 

LP08C 

LP08E 

LSO 

LSRTE 

LSTSYM 

LTA8 

LTREAO 

LWC 

LWD 

LWOE 

LWOEFD 

L10 

L17 

L7710 

L777 

MAIN 

MAINEX 

MAINSA 

MAINSE 

MAINSF 

MAINl 

MA INIA 

MASSIF 

MESS 

MESSS 

MICRO 



1256 
6032 
60 33 
6102 
6014 
0130 
415)2 
1104 
1370 
2624 
35 51 
5062 
2731 
0003 
1557 
66 54 
3737 
2146 
1560 
3062 
4250 
3303 
1250 
1452 
4225 
1365 
62 00 
6314 
6210 
6212 
6101 
0140 
6041 
6664 
6065 
'62 4 4 
60 71 
6073 
6661 
1472 
1454 
4170 
4005 
^053 
3477 
3504 
3507 
6104 
6305 
5520 
4174 
1400 
0072 
1904 
l4ll 
1416 
0101 
0264 
5426 
3510 
3520 
0056 



1754 
1174 
1175 
1274 
1155 
0432 
2770 
1575 
2066 
1417 
2300 
0125 
1525 

03 01 
0234 
15 47 
2517 
0653 
0235 
1613 
3113 
1762 
1746 
0126 
3066 
2063 
1343 
1504 
1354 
13 57 
1273 

04 42 
1220 
1553 
1252 
1413 
1260 
12 63 
1551 
0147 
0131 
3011 
2603 
0354 
2206 
2214 
2224 
1300 
1466 
0436 
3017 
0054 
0374 
0161 
0065 
0072 
0403 
06 00 
0325 
2232 
2242 
0357 



1717 
1161 
1165 
1224 
1202 
0065 
2763 
1561 
2047 
1400 
1417 
0104 
0234 
0132 
0075 
1240 
06 53 
0621 
0702 
1601 
3106 
S673 
1705 
0120 
3060 
2057 
14 00 
1441 
1520 
1447 
1222 
1267 
1146 
2733 
1267 
0137 
1523 
1524 
1350 
0157 
0373 
26 33 
26 05 
1533 
2175 
2210 
1527 
1247 
1343 
0325 
2614 
0374 
2474 
0105 
0403 
0600 
0531 
0572 
0306 
2206 
22 00 
1623 



1766 1771 



0345 3254 3411 



2307 2315 

0164 0411 0427 0562 1565 2035 2501 0046 0053 



2523 
0651 
0251 



2072 

1403 1406 1410 1423 1527 



1450 1451 1452 1454 

1223 1225 1230 1231 
1272 1562 1564 

1251 1260 1266 1345 1439 1506 



1145 1421 1437 

0134 0140 01S0 
3425 

2632 

0710 0752 0770 0772 0777 1001 1421 1423 1434 1437 2320 

2203 2204 2212 

1530 



0063 

0126 0166 
0421 0422 

0111 0163 0166 0174 
2561 

1036 1656 2065 1303 1512 



1706 



St MBul. 


VALUE 


DEF 


REFERENCES 




M I LH Ud 


0005 


0303 


1617 


1746 






n i LK UL. 


00 54 


0355 


1500 


1502 


1616 


1621 


H I NUS 


5 200 


1465 


1523 








4i A \j C 


41 3 6 


275l 


2712 








MODE 


1010 0 / 


<Xt Ath 
KfO 


0550 


0672 


1557 


1 7fll "X 
1 ' kI 0 


nUN 






1672 


0356 


1101 


2673 


HON I T 


4101 


971 9 


0421 








MO VA 




1066 


1056 








nu va 




1 Ot ^1 

XI0 oi 


1074 










02 62 


057 6 


0547 








nO VE 1 


00 74 


03 76 


ll76 








HO VE8 


0524 


1045 


0376 


1051 


1053 


1 054 


HT AO 


2265 


07 75 


0757 


0763 


1002 




MT DG 


CC I o 




0727 


0761 








7346 


0256 


0656 








HT RL 


9 OS 7 


0766 


0755 


0756 


0760 


0773 


MT SW 


2251 


0757 


07 37 


0740 


0744 




MT WO 






12 34 


052 0 


1516 


1604 


MT 10 




fl7*i<t 


0730 


0764 






Ml 




4 fl4A 


1046 








Ml A 


1735 


Oil 1 A 

8450 










M10 


2171 


06 76 


06 64 








H1280 


0121 




0216 


0743 






M12A 


0414 


07 35 


0730 








Mi 40 


60 60 


4 9 

1*^9 










M154 


0011 


4 J 79 


1347 








H20 


a*94 


94 &9 


2i07 








M212 




1<9I0X 


1157 










04 R4 


0453 


1070 


1141 


1163 


4 901 1 


M2 2 


9i% YS 


12 63 


1251 


0101 






H2 6 




9 A 9S 


2355 














0725 


1445 


2131 




M4 


0135 




1043 


1457 


2256 


1414 


M40 


00 13 


0313 


2104 


2342 


26 53 


0324 


UA t 

n^i 


0122 




0136 


0334 


0365 




M45 


0125 


04 27 


2000 


0721 


14 26 




M47 


■ 1 v>0 


€kA t«t 


0^12 


0627 






M57 


2034 


at; t A 


05 44 








M6 


3101 


1632 


1575 








H6 A 


1261 


175/ 


1715 








H60 


19 /o 


a9Rt 


0873 


0403 


1467 




M60A 


36 62 


24 26 


04 41 


2357 


14 70 




M67 


0126 


0430 


0712 








H7 


2702 


14 76 


1376 








M7 TWO 


2174 


07 01 


0075 








H7 2 


6310 


1471 


1510 


1512 






M7 7 


3756 


2537 


2505 








IMA as If 


KA9 A 


vo&o 


0304 


0504 






NONER 


3046 


1577 


1572 








NOS 


4137 


2755 


2775 








N0TA81 


2107 


0614 


00 76 








N0TAB2 


2124 


0631 


0077 








NO TBLK 


3616 


2362 


1627 


2366 






NOTBLi 


30 76 


1627 


1555 








NOTLDT 


1311 


20 07 


2002 








num 


6106 


1313 


1153 


1171 


1174 


1253 


nupage 


1262 


1760 


1731 


1776 


1777 


2005 


NXCAND 


2413 


1131 


1211 








OASSNO 


5725 


1002 


0624 


0655 


0660 


0744 


OBIN 


57 20 


0756 


07 35 








OBLOCK 


5735 


1013 


0632 


0722 






08SET 


5706 


0733 


06? 7 


0736 







1431 



SYMBOL 


VALUE 


DEF 


REFERENCES 




OCCRLF 


5751 


1046 


1035 


1041 






OCOOIT 


5743 


1037 


1043 


1044 






OCH£CK 


4050 


26 46 


26 66 








OCPNT 


5753 


1054 


1037 








OCT 


2227 


0734 


2713 








OCTS 


2235 


0742 


0212 


0734 


0745 




OCTSl 


1535 


0212 


0064 


0217 






ocuses 


5776 


1102 


1033 








OENO 


5661 


0673 


0667 


0700 






06TVAI 


5724 


1001 


0620 








OLOC 


57 30 


10 05 


0634 


067 4 


0706 


0707 


0L17 


5726 


10 03 


0630 








0L37 7 


57 32 


1007 


0675 


0711 


0715 




016400 


5731 


10 06 


0633 


0712 








1436 


0112 


0107 


0124 


0126 


0402 


ONERCI 


1704 


0402 


0306 


0361 






ONVRT 


2155 


0662 


0656 








OOPUT 


5667 


0706 


0670 


0673 


0717 


0723 


OPOINT 


57 27 


1004 


0656 








OPS 


2661 


1455 


0364 


1402 


1473 


1474 


OPUT 


5654 


0665 


0621 


0625 


0671 


0677 


OPl 


4273 


3150 


3134 


3135 


3136 


3137 


ORGIC 


1345 


2043 


2753 








OSANOV 


2600 


1373 


1230 


1405 






OSYM 


2613 


1406 


1374 




1425 


1444 


OUNIT 


5733 


1011 


0631 


0721 






OUTP 


0705 


1271 


1266 


2745 


1273 




OUTPUT 


5615 


0620 


2627 








0UTTA8 


2156 


0663 




063 1 






OUTTP 


2147 


0654 


0615 


0632 


0661 




OX 


2625 


1420 




1^1 «* 


1415 1441 


OXREAO 


2546 


1310 


1276 


4 ha 1 
loel 






OXWRIT 


2547 


1311 


1274 








PACHEC 


5512 


0424 


0347 








PATTER 


4270 


3145 


0277 








PAGEC 


0477 


1020 


27 37 








PA GEM 


0516 


1037 


1023 








PAGEl 


0102 


0404 


a*i OA 

B9Z4 


1031 


2060 


0125 


PA6HER 


0510 


1031 


1043 








PAGSET 


3524 


2253 


^372 


2267 


2274 


2277 


PASS 


0035 


0336 


11 01 


0 057 


0161 


0215 


PASSEK 


00 65 


0367 


0527 


1034 


1654 


2063 


PASSER 


3355 


2034 


0367 


2042 


2043 


2044 


PASSl 


1401 


0055 


0054 


0224 






PASSiP 


1407 


0063 


0223 








PASS^ 


1537 


0214 


0225 








PCFIG 


60 37 


1212 


1172 


1526 






PCHECK 


0141 


0443 


1303 


1315 


2726 




PC LP 


6040 


1213 


1147 


1525 






PCONT 


3522 


2251 


2214 


2215 


2254 


2270 


PCOT 


3736 


2513 


2504 








PCOUNT 


4133 


2746 


2701 


2727 






PCI 


6306 


1467 


1350 


1351 


1511 




PC2 


6307 


1470 


1352 


1513 






PDLK 


4147 


2765 


2757 


3000 






POOCAL 


5513 


0425 


0370 








POOLLA 


5514 


0426 


0352 


0373 






P0P8ER 


0253 


0566 


0562 








POPS MO 


3304 


1763 


2667 








PENDMS 


5515 


0427 


0372 


0377 






PERIOD 


4142 


27 60 


2757 








PERMA 


0032 


0333 


0644 


0055 


1121 


2550 



1004 



SYMBOL 


VALUE 


DEF 


REFERENCES 


PCJS 


3723 


2500 


2503 


2512 


2674 


PINP 


4131 


2744 


27 02 






PJEND 


5017 


00 62 


00 52 






PJMP 


5414 


0303 


0300 






PJNOP 


5037 


0102 


00 60 


0 061 




PJSTAR 


50 20 


0063 


00 50 






PLIST 


0555 


1077 


2727 






PtOVR 


0762 


1372 


1326 






PLP08C 


69 31 


1523 


1514 






PUP08E 


6932 


1524 


1516 






PLTST 


0761 


1371 


1305 


1330 




PLUS 


4600 


1464 


1522 






PL 17 


4130 


27 41 


27 32 






PL212 


4135 


2750 


2722 






PL2i5 


4134 


2747 


27 20 






PMAINS 


5510 


0422 


0354 


036 7 


0374 


PM60A 


0137 


0441 


0440 






POINT 


0047 


0350 


0076 


1055 


1061 


POPUPl 


4307 


3167 


04 10 


3174 




POPUi 


0106 


0410 


l604 


l6lS 


1614 


POSAND 


2506 


1230 


1223 






POUTP 


4132 


2745 


2703 






ppseuo 


4274 


3152 


3l44 






PRINIT 


6X07 


1314 








PRINT 


6000 


1140 


1152 


1154 


1167 


PRSYHB 


2474 


1213 


1X35 






PRl 


6^26 


1373 


X360 






PR2 


6227 


1374 


1362 






PR3 


6230 


1375 


1364 






PR 4 


6231 


1376 


1366 






PR5 


6;^32 


1377 


1370 






PSEUOO 


S410 


0277 


3l52 


0 37 5 


0412 


PSINTE 


1575 


0252 


0101 


0423 




PS RET 


42 01 


3151 


31 45 


3147 




PSTCHK 


0261 


0575 


0546 






PSTS 


4074 


2674 


2672 






PSUO 


0334 


0652 


0643 






PSUOOl 


4265 


3142 


2637 






PSUO 02 


4264 


3141 


^643 






PSU003 


42 63 


31 '40 


2647 






PSUD04 


4262 


3137 


2703 






PSU005 


4261 


3136 


2633 






PSUD06 


41^60 


3135 


2^57 






PSUD07 


4257 


3134 


2653 






PSWITC 


55X1 


0423 


0350 


8371 




PTB 


4047 


2645 


2627 






pTBurr 


3353 


2032 


2012 






PTBUrP 


3352 


2031 


2002 


2005 


2013 


PTHRCE 


7325 


0252 


0756 


1164 


2156 


PTOCMC 


1577 


0254 


0067 




PTX 


6312 


1473 


1416 


1424 


1433 


PT2 


6313 


1474 


1415 


1426 


1432 


PUNONE 


3001 


1532 


0422 


0213 


1533 


PUNONX 


0120 


0422 


0114 






PUSHl 


0105 


04 07 


1473 


1476 


1501 


PUSH2 


2341 


1052 


0407 


1063 




PUT 


0710 


1301 


0277 


1307 


1316 


PV8M0V 


5552 


0501 


0474 






PXLl 


6333 


1525 


1515 






PXL2 


6334 


1526 


1517 






P1T037 


3425 


2127 


2106 






P10 


1173 


1666 


1575 


1576 





I 



SYMBOL 


VALUE 


DEF 


REFERENCES 


Pi00 


3751 


2531 


2344 






Pll 


0015 


0315 


10 77 


2114 




PI 2 


2241 


0746 


0724 






P177 


0145 


0447 


0770 


1742 


0122 


P1777 


0144 


0446 


0555 


0616 


1203 


P2 


3456 


2164 


2117 


2122 




P20 


3100 


1631 


1547 






P200 


0147 


0451 


1013 


1026 


1737 


P2000 


0152 


0454 


0520 


0746 


0764 


P212 


0153 


0455 


1241 


2261 


1265 


P215 


0154 


0456 


1237 


2263 


1144 


P2270 


4041 


2637 


2620 






P240 


0134 


0436 


1406 


2345 


1434 


P260 


2704 


1500 


1450 


1470 




P300 


0143 


0445 


1673 


1702 




P367A 


3450 


2156 


2121 


2136 




P377 


3077 


1630 


1560 






P3777 


0131 


0433 


0624 


0632 


1071 


P40T57 


3412 


2114 


2111 






P400 


0124 


0426 


1562 


2405 




P4 00 0 


0150 


04 52 


05 66 


0 66 2 


06 65 


P41 


3460 


2166 


2140 






P43 


3523 


2252 


22 60 






P4400 


4046 


2644 


2626 






P45 


2701 


1475 


1433 






P46 


3461 


2167 


2151 






P4774 


5023 


0066 


0103 






P4775 


5021 


0064 


004 7 






P4776 


5022 


0065 


00 51 






P5 


3770 


2560 








P5000 


0142 


0444 




1901 




P53 


2703 


1477 


1447 






P54 


3455 


2163 


2147 






P57 


3457 


2X65 


2125 






P6000 


0136 


0440 


0i>cl 


056 4 


11 54 


P6321 


3316 


17 75 


1766 






P7 


0157 


04 61 


1670 


1714 


1467 


P7400 


0155 


0457 


1535 


2010 


2623 


P76 


0127 


0431 


21272 






P7600 


0146 


0450 


0773 


0777 


1012 


P77 


0160 


0462 


0312 


0322 


0605 


P777 


0156 


0460 


1057 


0 753 




RAOO 


4235 


3100 


1661 


3112 




RADDRT 


4246 


3111 


3123 






RAND 


3713 


2461 


1663 


2464 




READ 


7774 


3612 


1134 


2051 


2603 


REJECT 


2470 


1206 


1145 


1171 




REPUNl 


1171 


1664 


1635 






RESET 


1551 


0226 


0404 


0232 




RESETU 


3663 


2427 


0365 


2433 




RESETl 


0063 


0365 


0S23 


1772 




REST OR 


1751 


0462 


0577 


1664 


0451 


RE ST 01 


02 63 


05 77 


0543 






RETURN 


4051 


2647 


0420 






RETl 


0116 


0420 


24'73 






RIOR 


1600 


0263 


1660 


0272 




RSUS 


4211 


3052 


1662 


3065 




RSU8RT 


42 23 


3064 


3077 






RTHFT 


3336 


2015 


2007 






RWRITE 


4163 


3002 


2663 






Rl 


6233 


1400 


lS57 






R2 


6235 


1402 


1361 







564 1154 1206 1240 1764 0242 1010 1015 1104 H07 1614 1741 2312 2371 2411 2431 2771 



SY HBOL 


VALUE 


OEF 


REFERENCES 




R3 


6237 


1404 


136 3 






R4 


6241 


1406 


1365 






R5 


6243 


1410 


1367 






SAOR 


2023 


0324 


0613 


0641 


1163 






05 13 


0514 


0516 


SADROV 


2033 


0535 


0523 






SAMES 


3073 


1624 


1620 






SAVE 


1736 


0447 


0602 


0456 




SAVE! 


0265 


0602 


0605 






SCHl 


0433 


0754 


0743 






SCLEAR 


0132 


0434 


0342 


3253 


3410 


SCOLON 


0200 


1455 


1525 






SCRATC 


0025 


3574 


1323 


324 5 




SCURR 


0026 


0327 


060 6 


0 61 0 


0646 


SOECOl 


0112 


0414 


0611 


1645 


0464 


SDCC06 


0600 


1151 


0414 




1405 


SEARCH 


0266 


0604 


BP / O 


017011 


0754 


SEARCl 


0272 


0610 


0713 






SEARl 


3270 


1746 


1727 






SEMFDG 


2573 


1355 


1346 






SEMITX 


25 61 


13 40 


13 45 


1351 


2144 


SEMITZ 


3440 


2144 


21 12 






SEHPtr 


2574 


1356 


1347 






SEND 


00 27 


0330 


07ll 


0056 


0502 


SETINU 


0177 


0501 


1556 






SETORG 


1520 


0175 


0061 


021 1 


0220 


SETUSE 


3653 


2417 


2365 


2424 


2641 


S6N 


0034 


0335 


1503 


1506 


1534 


SIT 


4315 


3176 


3046 


3 160 




SKIP 


0075 


0377 


0670 


1252 


1377 


SKIPAS 


5435 


0334 


0312 






SKIP2 


0764 


1404 


0377 


1412 




SU77 7 


4304 


3163 


30 43 


3155 




SH370 


4305 


3164 


3042 


3154 




SNUM 


0171 


0473 


05 45 


1152 


1153 


SOHEW 


42 27 


3071 


3053 


3061 




SOPS 


0062 


0364 


1250 


1666 


2202 


SPACE 


5600 


1466 


1521 


1540 


1573 


SPACK 


3744 


2524 


0675 


2535 




SPCUNT 


0173 


0475 


007 4 


0 344 


2360 


SPECAL 


0416 


0737 


0724 


0732 




SPT068 


1705 


0403 


0343 






SQERR 


17 02 


04 00 


0354 


0355 




SQFORT 


1701 


0377 


0367 






SROl 


0115 


0417 


2421 






SREADi 


4275 


3153 


04l7 






SR ITIC 


0113 


0415 


2364 


2650 




STAB 


0675 


1246 


il62 






STOUMP 


1667 


0360 


03 04 


0320 




STEXO 


1175 


1670 


1245 


0535 




ST GET 


1641 


0327 


0300 


0303 


0317 


ST INTO 


1624 


0311 


0302 






STLOOP 


1616 


03 03 


0325 






STNOOU 


1673 


0364 


0301 


0371 




ST NOT 


1661 


0347 


0337 






STOCHK 


3757 


2545 


0575 


2552 




STRING 


1610 


0275 


2723 






SUBCON 


4232 


3074 


3055 






SWITCH 


0170 


0472 


0610 


0625 


0672 


SWOT 


1556 


0233 


0142 


0156 


0677 


SWDTA 


2172 


0677 


0641 






SWDUT 


4317 


3200 


30 4 4 


3156 





0502 0532 1133 0467 0511 



1377 1576 1605 1611 1670 1705 2356 3431 



2360 2520 2530 2533 



0317 0333 0346 0353 



SYMBOL 



VALUE OEF REFERENCES 



SWRC 


4201 


3041 


0415 


3047 


3151 




SWl 


6035 


1202 


1151 








SW2 


6036 


1203 


1166 








SY 


0174 


0476 


0575 


0646 






SYB 


0114 


0416 


06 47 








SYCR AP 


3373 


20 60 


1771 








SYM8 


4000 


1457 


1520 


1542 


1653 




SYMBLP 


2402 


1120 


1224 








SYM8U 


1503 


0160 


0416 


0144 


0145 


0146 


SYMBUF 


3102 


1633 


0476 


0160 






SYMF IX 


63 35 


1527 


l354 








SYMLOO 


5553 


0502 


0307 








SYMLST 


0071 


0373 


24 41 








SYMOVfl 


6336 


1530 


1355 








SYMS AV 


5533 


0461 


03ll 








SYREAD 


3372 


20 51 


1770 








SYSIN 


3317 


1776 


0371 


2016 


2026 




7AABA 


0362 


0700 


0715 








TABA 


3441 


2147 


2116 








TABLE 


3271 


1750 


1654 








TACK 


14 34 


0110 


0171 








TATA 


3532 


2261 


22 66 








TBCONT 


0175 


04 77 


0574 


0660 


0663 


0671 


TEMP 


0007 


0305 


0663 


0667 


1060 


1061 


TEMPA 


2510 


1264 










TEMPI 


6034 


12 01 


1155 


1156 


1162 


1254 


TEMl 


0161 


0463 


0620 


0742 


2032 


0507 


TEMl A 


00 40 


0341 


1124 


1126 


1130 


1147 


TEM2 


0162 


0464 


0626 


0741 


2034 


0512 


TEM3 


0163 


0465 


0634 


0740 


2036 


0515 


TERMC 


0000 


0266 


0350 


0375 


0550 




TEST 


6252 


1421 


1425 


1427 






TESTC2 


6267 


1437 


1443 


1445 






THOU 


'3570 


2317 


2763 








TIC 


2274 


1005 


0754 


0762 


1000 




TOP 


0367 


0705 


0637 








TOUSE 


4043 


2641 


2622 








TWOCH 


2144 


0651 


0634 








TWOCHR 


2073 


0600 


0652 








TYBASE 


2400 


1546 


1400 


140 3 


1406 


1410 


TYCAR 


2510 


1236 


0402 


1245 


1264 




TYCARl 


0100 


0402 


0310 


0363 


0635 


1117 


TYPAOD 


0622 


1173 


04l3 


1175 


1243 


1244 


TYPAOl 


0111 


0413 


0570 


1652 


0527 




TYPE 


0021 


0322 


07 45 


0752 


0763 


1006 


TYPEA 


0014 


0314 


1176 


1177 


1762 


0452 


TYPO 


2527 


1255 


1373 


1262 


0133 


0135 


U8ITS 


4321 


3211 


0501 


3217 






UN 


1105 


1576 


2767 








UNOERR 


2317 


1030 


1760 


1042 


1716 




UNITAS 


41^77 


0244 










UNREF 


3240 


1716 


1660 


1671 


1675 




UNTRAN 


2647 


1442 


1436 


1440 


1453 




UPLN 


3607 


2353 


2361 


2522 






USEONO 


4337 


3277 


2642 


1102 






USES 


4044 


2642 


2651 


2655 


2660 




USYM8 


2000 


1461 


1517 


1543 


1734 




VADR 


0022 


03 23 


0557 


0655 


1166 


1650 


VAL 


0024 


0325 


0671 
2314 


0750 


0751 


0766 


VALK 


0025 


0326 


0653 


0670 


0247 




VASSNO 


5603 


0564 


0562 









C V MDftl 


VALUC. 


nrr 


REFERENCES 


\lf*i TAW 
V ULL AM 


5602 


0562 


0571 




VC rO i U 


0017 


02 35 


02 51 




1 in 


55 73 


05 37 


04 73 


0512 


V I N I T 


5565 


0514 


0bl3 




VL67 77 


5951 


0500 


04 70 


0510 




5572 


0536 


04 66 


0505 


VCRSRV 


0^73 


1427 


l432 


0536 


VPRSRW 


0 777 


1437 


1430 




VR E A D 


5610 


05 76 


0567 


0734 


VRSTR 


05 72 


11 24 


1127 


0537 


VR ST RR 


0576 


1134 


1125 




VS A V E 


4331 


32 43 


1126 


1 431 


VT AB 


56 11 


0602 


0560 


0570 


VV INI T 


5604 


0567 


0514 




VWR! TC 


5607 


0575 


0^57 


0720 


V SHOVE 


5600 


0557 


0501 




WON 


4042 


2640 


2625 




WQHA LP" 


33 51 


2030 


2000 


2 02 0 


HHERE 


4252 


3116 


3101 


3107 


WREAO 


43 06 


31 66 


5157 




NR ! TE 


7775 


3613 


1437 


3002 


WW RITE 


42 10 


3051 


3045 




AO DL '^'^ 


51 54 


32 70 


3067 




AD wr 1 n 


53 53 


35 43 


34 73 




XCER 


5134 


3247 


3100 


3112 


yf* Ul T M 
Aw rlA 1 n 


25 36 


12 74 


2623 




AW Uni 




3301 


3123 




XDONEl 


5044 


3133 


3121 




XGET 


5122 


3227 


3077 


3113 




51 51 


32 65 


32 30 




XH AL, F 


51 55 


32 71 


3171 


3203 


An 1 


53 34 


3524 


34 23 




XI NI T 


OK tsi 

cZf ox 




12 77 




X I NTOX 


5034 


01 


3116 




XL OOPl 


^9 11 


010 » / 




3111 


vi nnv? 


790X 


XI 1 7 
Ox X / 


3130 




Vi 1 7 




32 61 








53 4 7 


35 37 


3417 




VI A 
aL w 


<Sl 44 


Oc VW 


3247 




AUw ' ' ' 


PO O / 


0* < ' 


3351 




VI lAaA 

AU ' ^ 




3536 


3414 




AL / ' 


111 m 


32 67 


3070 


3150 


Xt. 77 70 


5342 


3532 


3357 


XH100 


53 4 0 


35 30 


33 53 




VUt 


5«i 7R 


1357 


1341 




XM26 . 


53 35 


03 


34 30 




Art ^ 


53 44 


3534 


3364 




XH40 


5146 


32 62 


3107 




XH43 


5152 


3266 


3J31 




XM47 


5150 


32 64 


3103 




XH9 


5147 


3263 


3217 




XN 


5143 


3257 


3137 


314 6 


XNMl 


5310 


34 55 


33 00 




XOKl 


5025 


31 13 


31 01 




XP 


5157 


32 73 


3221 


3533 


XPP 


2550 


1312 


13 00 




XPSEU 


2555 


1321 


1275 


1302 


XPUT 


5064 


3161 


3074 


312 7 


XP46 


2576 


1360 


1344 


1350 


XREAO 


53 36 


35 26 


33 47 


3 42 4 


XRESET 


5112 


3214 


3072 


3076 


XRIGHT 


5104 


32 02 


31 72 





3002 3051 0476 0575 



3112 3114 3115 3120 3131 3140 3510 



SYMBOL 


VALUE 


OEF 


REFERENCES 


XT 


5156 


3272 


3177 


3204 


XTH 


53 33 


3523 


S4 22 




XTHIS8 


5166 


3307 


3071 


3151 


XXFH 


53 21 


34 7 0 


3427 


3 43 4 


XXGET 


5354 


3544 


3340 




XXL 


53 45 


3535 


3413 




XXtOOP 


5214 


3355 


3506 




xxlp 


52 25 


33 66 


33 76 




XXMESS 


5277 


34 42 


34 32 




XX M 3 


53 41 


35 31 


33 43 




XXN 


5202 


3342 


3257 


3354 


XX Nl 


51 60 


32 74 






XXN2 


5161 


327!5 






XXN3 


51 62 


32 76 






XXN4 


5163 


3277 






XXP 


53 43 


35 33 


33 62 




XXRET 


5172 


3322 


3475 




XXT 


52 71 


34 32 


34 36 


3 43 7 


XXXP 


5164 


3300 


3124 


3125 


XXXR 


5200 


33 40 


33 45 




XXXX 


5000 


3066 


1312 


3322 


XXY 


53 27 


35 05 


33 74 


3405 


XXI 


5350 


3540 


3415 




XX2 


53 51 


35 41 


34 16 




XX3 


5352 


3542 


3420 




YPl 


55 66 


0520 


04 72 


0507 


YREAO 


5550 


0477 


0506 




YWRITE 


55 47 


04 76 


04 71 




2ASSir 


5425 


0324 


0305 





